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The computer language, BASIC, short for Beginner's All-purpose Symbolic 
Instruction Code, was developed at Dartmouth College by John Kemeny 
and Thomas Kurtz in 1964. Since then it has gained acceptance in industry, 
research, and education. Its use is continuously growing as computer manu- 
facturers, and especially home computer manufacturers, recognize its 
simplicity and popularity. The Radio Shack TRS-80 microcomputer com- 
municates in BASIC. This book provides an introduction to TRS-80 Level II 
BASIC and, through it, to some of the important concepts and appMcations 
of computer programming. 

The reasons for the increased use of BASIC are many. Persons interested 
in learning practical computer use find BASIC to be a fast way to reach their 
goal. Because BASIC has a conversational, interactive nature and a simple 
structure, it is an attractive teaching tool with which computer programming 
concepts can be presented to beginners. 

Just as the Enghsh language has many dialects, so does BASIC have many 
different implementations. The TRS-80 has two versions of BASIC com- 
monly referred to as Levels I and II. Level II is more extensive than Level I 
and is the subject matter of this book. Level II BASIC contains a powerful 
arithmetical facility along with a large library of common mathematical and 
nonmathematical functions. It has many error diagnostics, which produce 
easily understandable error messages and excellent editing features. Level II 
also includes comprehensive graphic capabilities and numeric accuracy of up 
to 1 6 digits. These attributes combined with good input-output procedures 
make Level II BASIC an ideal computer language. 

This book is directed at the beginning programmer. With a small set of 
instructions, the beginner can very quickly begin to write elementary com- 
puter programs. We take advantage of this feature of BASIC and emphasize 
those parts of the language that are most frequently used. Many examples 
are included to illustrate the use of BASIC and to demonstrate how a com- 
puter can be programmed to perform many different tasks. In addition, an 
abundance of exercises is presented at the end of each chapter with solutions 
to selected problems given at the end of the book. The reader is encouraged 
to try as many exercises as possible, for computer programming is best 
learned by doing. 

The level of presentation and selection of material make this book suit- 
able for a wide variety of readers. No previous experience with computers 
and no mathematical background beyond the basic arithmetic skills are 
assumed. The material is presented as it would appear on the TRS-80 video 
display. A unique feature of this book is the inclusion of explanatory com- 



XI 



xii preface 



ments alongside the computer displays. These comments highlight and rein- 
force the text discussion by pointing out new procedures and emphasizing 
important points. The reader would therefore benefit by working along with 
the text, trying out the illustrative examples on the computer, and experi- 
menting with variations. The way to learn a new computer language is to use 
it. Each student should run as many programs as he has time for so as to 
acquire a feel for this new tool. 

This is a textbook suitable for the self-learner or for a one-semester 
introductory course. It should not be viewed as a reference manual in 
BASIC. The primary purpose of the book is to introduce Level II BASIC 
as well as computer-programming concepts. It is for the nonspeciahst who 
wants to learn to use the TRS-80 effectively. 

I am greatly indebted to many people who have contributed to the 
development of this book. Particular thanks are due to Stephen Cline, editor, 
Prentice-Hall, and to David Gunzel, director technical pubHcations, Radio 
Shack. I also express my appreciation to Ann Hannon of Greenwich High 
School and to the teachers of the Orange PubHc Schools for reviewing the 
manuscript and providing helpful suggestions. In addition, I wish to thank 
John Donovan, Richard Golden, Edward Hanlon, Howard Hecht, and 
John McCann for their support in the preparation of this text and my wife 
whose advice and typing were magnificent. Programming for the chapter 
exercises in this book was done-brilHantly--by Michael Galaty. 

Michael P. Zabinski, Ph. D. 
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The computer revolution is here! Today, computers are invading virtually 
every aspect of Hfe in America. They are changing the way we work, play, 
and even think. That they have affected the lives of nearly all of us is indis- 
putable. Their impact has been experienced in areas as widely separated as 
space research and primary instruction. We live in a world that is increasingly 
dependent on computers. These machines not only calculate our paychecks 
and our bank balances, but they are invading areas where their application 
once seemed inconceivable. The physician may use the computer to diagnose 
a case, the attorney to research a legal matter, the poHceman to investigate 
the records of an alleged criminal, and a history teacher to simulate the Civil 
War. It now seems improbable that any career will remain untouched by 
computers, as computers are penetrating directly or indirectly into nearly 
every aspect of human affairs. 

The seemingly unhmited usefulness of the computer itself has been aug- 
mented by its rapid development. The number of computers produced has 
risen dramatically. In the early 1950s there were less than 1000 computers 
in existence. By 1976 the number of computers had risen to 200,000. This 
phenomenal growth is primarily due to the major scientific advances in com- 
puter design. The first electronic computer, the ENIAC, which was huge and 
fined an entire room, was built in 1946. It consisted of 18,000 vacuum 
tubes, and tended to overheat and break down. Since that time, with the 
advent of transistors, integrated circuits, and the sihcon chip, computers 
have become smaller, more reliable, faster, and less expensive. We distinguish 
between computers, minicomputers, and microcomputers. Around 1965 the 
least expensive computers were called minicomputers. In general, they are 
less powerful, cheaper, and smaller, although there is considerable overlap. 
To some extent history repeated itself with the advent of the microcom- 
puter. In the early 1970s, very low cost computer products began to appear 
and were called microcomputers. The prefix micro- applies to the very smah 
size as compared with a mini. Once again there is considerable overlap be- 
tween micro- and minicomputers. Minicomputers lowered the price of com- 
puters to less than $100,000 and brouglit the computer into the laboratory 
and the manufacturing plant's production line. Microcomputers reduced 
the price of computers to below $1,000 and brought the computer into the 
small business and the home. 

Regardless of size and price, all computers possess common characteris- 
tics of design and performance. Typically, a computer consists of five units: 
input, output, memory, arithmetic, and control. Information must be fed 
into the computer as input, for example, via the keyboard or punched cards. 
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The data or instructions are stored in the computer's memory. Computer 
storage can be visualized as a set of post-office boxes with each box capable 
of holding a single number or character of information. These boxes are 
arranged in such a way that their contents can be easily reached or accessed. 
Memory holds the information received, the commands to be followed, and 
the results of work accomplished. The actual calculations take place in the 
arithmetic unit. Besides calculating, a computer can make comparisons to 
determine whether two quantities differ. Such comparisons are also made in 
the arithmetic unit. The results of the computer's work are displayed 
through the output unit. In the case of the TRS-80, the display may be on 
the screen or on the printer. The control unit coordinates the flow of data. 
Like the conductor of an orchestra, it coordinates the activities of the units 
of the computer to ensure proper processing. 

A basic characteristic of the computer is that it has no inherent intelli- 
gence. It does not understand any human language; nevertheless, a computer 
can act upon instructions given in a language that is well suited to tasks the 
computer can accomplish. The language of the TRS-80 is BASIC; it allows 
you to create instructions using familiar English terms. Another important 
characteristic of a computer is its ability to carry out instructions extremely 
quickly. This fact, along with the observation that many tasks involve re- 
peating similar operations, has led to the concept of a computer program. A 
program consists of a set of instructions provided to the computer in ad- 
vance of actual computations. By first giving a computer all the instructions 
needed to accomplish a task, and then telling it to start executing the in- 
structions, the computer can work at its own tremendous speed, repeating 
particular operations as many times as necessary to get the job done 

The language of BASIC, the Beginner's All-purpose SymboHc Instruction 
Code, was bom in 1964. It was developed at Dartmouth College by Kemeny 
and Kurtz. The BASIC language is oriented to conversational use at the com- 
puter. The idea was to make the language syntax very easy to learn and use. 
In 1967, Kemeny and Kurtz reported that they had introduced some 2,000 
students at Dartmouth to BASIC, indeed a very basic computer language 
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1.1 GETTING STARTED 



The TRS-80 computer consists of four units. The power supply, the key- 
board, the video monitor, and the cassette recorder. The keyboard is used to 
type information into the computer. The information we type in and the 
computer's responses are displayed on the screen. The computer itself is 
inside the keyboard. The cassette recorder is used to load from tape pro- 
grams into the computer or to record programs on tape. These units need 
to be connected and plugged in carefully. Follow the detailed instructions 
that accompany the computer, and be sure you get all the plugs to fit 
properly. To turn on the computer, press the power button on the video 
display and the power button on the back of the keyboard. Once the power 
is turned on, the red hght on the keyboard lights up and the display 

MEMORV SIZE? 

appears on the screen. Press the white key labeled ENTER. The computer 
responds 

RRDIO SHRCK LEVEL II BRSIC 
RERL'V 



The computer is now ready for your instructions in Level II BASIC. Com- 
puters equipped with Level I BASIC display the READY immediately after 
power has been turned on. 



1.2 THE KEYBOARD 



BASIC is a conversational computer language that enables us to carry on a 
dialog with the computer. We talk to the computer by using a typewriter- 
Hke keyboard. We type our messages and transmit them to the computer. At 
the same time, the information we type also appears on the screen. 

The keyboard is divided into two zones. The first zone is the primary 
part of the keyboard; it contains all the keys necessary to operate the com- 
puter. The second zone, located on the right side of the keyboard, contains 
a duplicate set of numeric keys and a second white ENTER key. It is a 
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calculator-Style numeric keypad that makes typing of numbers convenient 
and efficient for those who are accustomed to calculator usage. Some earlier 
model keyboards do not have a numeric keypad. The letters of the alphabet 
shown on the keys print only in capitals. The SHIFT key need not (but may) 
be pressed for the letters to be displayed in capitals. The letter and the 
number zero should not be confused since they are not interchangeable. To 
avoid confusion, the number zero is slashed (0). 

Some of the keys are shared by two characters. To type the upper char- 
acter press the SHIFT key. This is just like typing capitals on a regular type- 
writer. For convenience the keyboard has two SHIFT keys located at the 
right and left ends of the bottom row of keys. Aside from the usual charac- 
ters, such as letters, digits, addition, subtraction, and punctuation, several 
characters are peculiar to BASIC. The multiplication sign is a star (*), the 
division sign is a slash (/), and the exponent is an up-arrow (t). In addition, 
there are other special-purpose keys, for example, #, @, $, and %. These will 
be mtroduced later. Finally, several keys located along the right and left 
edges of the keyboard are used to manipulate where on the screen the in- 
formation is typed. These include the CLEAR, -^, ^, BREAK, t and i keys. 
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When we first turned on the computer we pressed ENTER to obtain the 
READY followed by >»- . The - is called the cursor. We now do some 
typing. Type I AM HAPPY. The space bar is used for spaces between words. 
Notice how the cursor moves to the right. The cursor indicates where the 
next character will appear on the screen. Suppose we typed by mistake the 
word HPPY (the A is missing). To erase the text, we press the ^key. Each 
time we press the key one character is erased. The shift <- (press the SHIFT 
and <- keys at the same time) erases the entire line at once. Erase it. 

Each line on the screen can hold up to 64 characters. Enter any text and 
count them. As you type briskly, you may press a second key before you 
have released the first. At first type slowly to be sure no extraneous charac- 
ters are typed. Now erase the line and type in the entire ABC in double 
letters, AABBCCDDEE . . . Press shift -> and notice that the letters are 
suddenly twice the size and that every other letter of the AABBCC . . . text 
has been deleted. Each letter of the ABC now only appears once. Continue 
typing digits and other characters. Up to 32 characters fit on a line. When 
the line is filled, the cursor automatically moves to the next line. To erase 
the Hne, press shift ^. The enlarged cursor remains. Additional typing will 
continue to appear in the 32 character per Hne format. To return to the 
normal type size, press CLEAR. This key clears the screen and places the 
smaller cursor at the top left comer of the screen. We can now type 64 
characters per line. 

Press the | key. It moves the cursor down along the left edge. When it is 
at its lowest position, type your name. Then press the j key 15 times and 
watch your name move up to the top of the screen. There are 16 lines on 
the screen. Repeat this exercise. Press CLEAR and then press I to move the 
cursor to the bottom left comer of the screen. Now press 1, I, 2, ;, 3, i, . 
15, i, 16. Subsequently, continue to type in j, 17, |, 18, and notice ho'w the 
first few numbers disappear from the display. Press CLEAR to erase the 
screen and to place the cursor at the top left comer. 
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So far we have not truly communicated with the computer. We have 
typed information onto the screen but did not transmit it to the computer. 
To transmit information to the computer, the ENTER key must be pressed. 
Type your name and press ENTER. 

COMMENTS 

TRS-S0 Type in a name and press ENTER. 

?SN ERROR Connputer responds: Syntax error. 

RERDV 

^— The cursor is waiting. 

Oops! What happened? The computer did not understand our entry and 
therefore responded with the error message. This is one of many types of 
error messages that the computer uses to inform you of errors. To avoid such 
error messages, we must adhere to the rules of BASIC. We must learn how to 
properly communicate with the computer. 
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2 1 specifying inropmstion 



The great power of computers lies in their abiHty to handle a large amount 
of information rapidly. We begin our study of BASIC by looking at some of 
the types of information that we can use. The two types of information dis- 
cussed in this chapter are numerical information and character information. 
We can request that the computer display information on the screen by using 
the instruction PRINT. 



2.1 NUMERICAL INFORMATION 



Numbers such as 18, 157, or 89 can represent information of importance to 
you, such as your age, weight, and grade on your last exam. Decimal num- 
bers are expressed in the usual manner, for example, 18.5 or 3.14159. 

A number such as 18.5 is a positive number. It could therefore be writ- 
ten equally well as +18.5. The plus sign is optional. In the case of a negative 
number, we must place the minus sign before the number. 

COMMENTS 

PRINT s. You type in PRINT followed by a 

^ number. Then press ENTER. That 

PRINT 3. ±20 number is then displayed by the 

- ■ ^2 computer on the screen. Note that 

trailing zeros after the decimal 
point are dropped, and for values 
less than one, the zero before the 
decimal point is also deleted. The 
+ sign is not printed; the - sign is 
printed. A number without a sign 
is always positive. 

PRINT +3.12 Positive numbers are displayed with 

- ^S a leading blank instead of the plus 

sign. 
PRINT -1. 12 Negative numbers are displayed 

--■. 12 without a leading blank. 

PRINT -0. 3-120 Leading and trailing zeros are not 

~- 3i.2 displayed. 

?_- The ? is an abbreviation for PRINT. 

- In contrast to Level I BASIC, 
Level II allows only for very few 
abbreviations. For clarity, we do 
not use the abbreviated form. 
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REMEMBER: Always press ENTER to transmit your message to the computer. 



BASIC uses a modified version of scientific notation for representing 
very large numbers or very small numbers. Scientific notation breaks a num- 
ber into two parts, a number between 1 and 10 and an exponent of 10. For 
example, the speed of light is about 300 milHon meters per second, which 
can be written as 300,000,000 or in scientific notation as 3 X 10^. In BASIC 
we can express this numerical information as the number 3E8, where E indi- 
cates that 8 is the exponent of 10. The following examples illustrate scien- 
tific notation. 



Number 



Scientific Notation 



BASIC 



1230000 
0.000123 



1.23 X 10^ 
1.23 X 10-4 



1.23E+06a 
1.23E-04 



^BASIC replaces "times ten to the" by E. 



PRINT 100000 
100000 

PRINT 1000000 

lE-+-0b 
PRINT lE+5 

100000 

PRINT 1E6 
lE+06 

PRINT 0. 01 

.01 

PRINT 0. 001 
lE-03: 



COMMENTS 

Once the ENTER key is pressed the 
computer displays 100000. 

At 1 million, scientific notation is 
used. 



1 E6 is a valid numeric constant. 



Scientific notation is used by the 
computer for numeric constants 
less than 0.01. 



2.2 CHARACTER INFORMATION 



In addition to numerical information, BASIC also allows for the use of char- 
acter information in the form of character strings. Character strings may 
consist of a single character such as 



" /\'r "R" "p" i/O// //o/f "*" "i" " 

or several characters such as 

"ABC", "23", "*+=" 
Character information must be enclosed in quotation marks. 
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COMMENTS 



PRINT "R" Character data are typed in with 

fl quotes. On output, the computer 

PRINT "23;" displays character data without 

23 the quotes. 



REMEMBER: Character information is always enclosed in quotes. It may contain up 
to 255 characters. 



The following examples illustrate additional features of character infor- 
mation. 



COMMENTS 



PRINT 



Request that a blank be printed. 
The computer displays a blank; 
double spacing. 
^'^'■'^^^'^ Print nothing. 

The computer again skips a line; 
displays a blank. 
PRINT "HE SflID "TO BE OR NOT TO BE"" Try to display a quote. 

HE bfllD^ Cannot have more than one set of 

■:bN ERROR quotation marks. 

Rest beyond first set of quotes is 
ignored. 
PRINT "HE SfilD 'TO BE OR NOT TO BE'" So we use apostrophes within the 

HE bHiD --TO BE OR NOT TO BE' quotes. 

^pJJ^^ "^'JI^ WORKS The closing quotes are missing. 

THI-. WORKb They are not required. 

The syntax error (SN ERROR) encountered above is one of many differ- 
ent error messages that the computer uses to denote an illegal procedure. A 
complete list of the error messages is given in Appendix 1 . 



2.3 VARIABLES 



The previous sections introduced different types of information; thus 
far it has been necessary to enter infomiation from the keyboard. We often 
want to store information in the computer for later use. This capabiHty is 
provided through variables. A variable is a name that represents data stored 
in the computer. It may be numerical or character data. It is not fixed, but 
may be changed whenever desired. 

We want to compute the interest that a savings account wiH earn in one 
year. We need to have the account balance at the start of the year. This value 
is not fixed; it may vary from person to person. We assign this quantity a 
name, for example B. The quantity B is called a variable. For one person, B 
may be 1000; for another it may only be 100. So B varies but always repre- 
sents the balance at the start of the year. Another variable that we need in 
order to compute the interest paid by the bank is the interest rate. We can 
name it R. 



2.4 ASSIGNMENT 



sec. 2.4 I assignment 

Notice that we used the variables B and R to represent the account Bal- 
ance and the interest Rate. It is a good idea to select variable names that 
are closely associated with the quantity they represent. For example, use the 
variable name M for Mary's age and J for John's age. 

Variable names are formed from alphabetic characters and numerals. 
Variable names must start with a letter (A-Z) and may be followed by letters 
or digits (0-9). Examples of valid numerical variable names are 

A A3 AB Z5 

Examples of invalid numerical variable names are 

A+ 3A 

The A+ contains an illegal character; the 3 A does not begin with a letter. 

String variables contain character information; numerical variables con- 
tain numerical information. String variable names are formed by appending a 
dollar sign ($). The maximum number of characters that may be included in 
a character string is 255 characters. Examples of valid string variable names 
are 

A$ A9$ DC$ 

Examples of invahd string variable names are 

A+$ The + is an illegal character. 

8C$ The variable name cannot begin with a 
character other than a letter. 

XY The $ is missing; this is a legal 
numerical variable name. 

In Level I BASIC only two string variables are available. These are variables 
A$ and B$. 



REMEMBER: The name of a string variable always ends with a $. 



The procedure by which we specify the value of a variable is called assign- 
ment. Assignment is indicated by the equal sign (=). To assign the value 1000 
to the variable D, we use the instruction D=1000 or LET D=1000. The LET 
is optional. 

Type in D, the equal sign, and 1000. Then press ENTER. From this 
point on, D has the value 1000. The value of D can subsequently be changed 
through another assignment statement. To display the current value of the 
variable D, we type in PRINT D and press ENTER. 
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COMMENT 



LET D=10eiei Assign D the value 1000. 

PRINT D Request display of the value of D. 

1000 The present value of D is 1000. 



REMEMBER: The LET is optional; we will omit it. 



When the computer encounters the assignment statement D=1000, it 
places the value 1000 in a storage location in its memory and associates 
this storage location with the variable name D. The assignment instruction 
in itself does not cause the value of the variable D to be displayed. A sepa- 
rate PRINT is needed. Then printing the value of D does not change its value 
in storage. 

COMMENTS 

LET D=2000 The variable D is now 2000. Note 

the assignment does not cause the 
value of the variable to be dis- 
played. 
PRINT D 

2000 The value of D is displayed. 

PRINT D 
2000 The value of D is still 2000. 

Spaces (blanks) within statements such as between the PRINT and vari- 
able D are optional. Spaces are generally included only for readabiHty. 

Variables are initially set to zero by the computer. So unless otherwise 
specified, all variables have zero values to start with. In Level I BASIC, the 
value of an undefined variable is unpredictable. For example, we have not as 
yet assigned the variable R a value. So we expect the value of R to be zero. 
The LET is optional, so we omit it. 

COMMENTS 

PRINTR R has not been assigned a value and 

is therefore zero; the space be- 

R=-0. 07 tween PRINT and R is optional. 

The assignment statement does not 

r-r-T,,^ r. cause a display by the computer. 

PR INT R 

07 R is now .07. 

R=0 R is assigned the value zero. 

PRINT R 

R is again zero. 

Variable names may exceed two characters, but only the first two char- 
acters are used by the computer. The variables NU and NUMBER are there- 
fore one and the same. The computer does not recognize the letters beyond 
the U. Also, variable names may not contain words used in the BASIC 
language, such as ON, FOR, or NEXT. There are many such keywords com- 
monly referred to as reserved words. A list of the BASIC reserved words is 
given in Appendix 2. 
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COMMENTS 


NUMBER =1 


Variable names more than two 


PRINT NUMBER 


characters in length are permis- 


.1 


sible. 


PRINT NU 


NU and NUMBER are the same 


1 


variables. Only the first two char- 




acters are recognized. 


NU=iei 


NU is specified as 10. 


PRINT NUMBER 




10 


Now NUMBER is also 10. 


GONE=? 


GONE is an illegal variable. It con- 


?SN ERROR 


tains the BASIC reserved word 




^JdH.G^O 



t-? 



The assignment is not always just the usual equality. For example, 

COMMENTS 

PRINT R A has not been assigned a value. 

Like all undefined variables, it 
starts out as zero. 

fl=l A is assigned the value 1 . 

PRINT fl 

1 The old value of A (=0) has been 

replaced by 1 . 
fl=fl-+-2 The value of A is replaced by its old 

PRINT fl value (=1) plus 2. 

s A is now 3 (= 1 -i- 2). 

We may think of the assignment as a replacement. Even though in arithmetic 
A = A + 2 is not a vaHd relationship, in BASIC it is. We have in this example 
introduced for the first time an arithmetic operation, the addition. In the 
next section we discuss arithmetic operations in detail. 
The assignment statement works similarly with strings. 

COMMENTS 

N1*="T0BV" The character string TOBY is as- 

PRINT Nit- signed to the variable N1$. 

TOBV 

N2*="MflRIijN AND ERIC" N2$ is the name of a string vari- 

PRINT N2* able whose value is MARION 

MflR I ON RNt.' ERIC AN D E R I C. 

N1*=N2* Variable N1$ is assigned the value 

PRINT Nl* of variable N2$. 

MARION RND ERIC The value of N1$ is no longer 

PRINT N2* TOBY. 

MARION AND ERIC The value of N2$ remains un- 

changed in the process. 



Example: Interchange Values of Variables 

Two variables A and B have been assigned values (for example, A=10 and B = 20). Write a 
sequence of instructions to interchange the values of A and B without simply stating 
B= 10 and A = 20. 
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EXERCISES 1 



COMMENTS 



fl=10 A and B are given values. 

B=20 

PRINT fl 

10 A is 10. 

PRINT B 

20 B is 20. 

Fi=B Set A equal to B. 

PRINT fl 

20 A is now 20 as desired. 

B=fl Set B equal to A. 

PRINT B B is 20, but we want it to be 10; 

20 this is because B = A sets B equal 

to the current value of A (=20). 



So we introduce a third variable, C: 







COMMENTS 


fl = 10 




A is 10 to start with. 


B=20 




B is 20 to start with. 


C=fl 




Set C equal to A. 


fl=B 




Set A equal to B. 


B^C 




Set B equal to C, which equals the 


PRINT 


fl 


original value of A, that is, 10. 


20 




A is now 20 as desired. 


PRINT 


B 




10 




B is now 10 as desired. 



REMEMBER: When a variable is assigned a new value, its old value is lost. 



In the following exercises, record the result you anticipate in the column Anticipated 
Display. If the actual display differs from the anticipated display, record the resuh in the 
column Display with an explanation. Refer to Appendix 1 for error messages. 

1. Fill in the Anticipated Display, enter the instructions, record the resuhs, and explain. 
Instruction Anticipated Display Display 

a. PRINT 3. 1 

b. PRINT 12345678901 

c. PRINT -0. 00000123 

d. PRINT 15E2 

e. PRINT -35E-2 



f. D=10 
PRINT D 

g. PRINT "D" 
h. PRINT E 

i. PRINT "D D D" 
j. I PRINT "ftBCL' 
k.'?D 
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2. Use the PRINT statement to display your age. 

3. Use the PRINT statement to display your name. 

4. Use two PRINT statements to display your name and home address. 

5. Enter the following instructions. If you anticipate an error, indicate the source of that 
error. 

Instruction Anticipated Display Display 
a. PRINT MV NRIIE 



b. PRINT "HE SRIL'.. "I MM HHPPV 



c. R*="TERRlFiC" 

d. hCE=1 

e. R=6 

f. R+3-=y 



6. Specify and then display: 

a. A string variable that contains the letters of the alphabet without spaces between 
the letters. 

b . A string variable containing all the digits from to 9 . 

7. a. Find the largest N for which 10^ does not exceed the Hmit for a constant on your 

computer. (HINT: In scientific notation, enter successively increasing numbers of 
the form 1 E2, 1 E10, and so on.) 

b. How does the computer indicate when a number is too big to be used? (This is 
called overflow.) 

c. Try entering successively smaller numbers, such as 1E-2, 1E-10, and so on. What 
happens? 



2.5 ARITHMETIC FUNCTIONS 



Addition (+), subtraction (-), multiplication (*), division (/), and exponenti- 
ation (t) are the five available arithmetic functions. (Level I BASIC does not 
have exponentiation.) On the screen the symbol for exponentiation appears 
properly as an arrow pointing up (t). The printer, however, prints this sym- 
bol as a square bracket ([). 



PRINT 


1+2 


3 




PRINT 


1-2 


-1 




fl=5 




PRINT 


9*fl 


45 




B=10 




PRINT 


B/fl 


2 




PRINT 


5C2 


25 




PRINT 


4|[0. 5 


2 





COMMENTS 

The instruction is entered. 
The sum is displayed. 
Subtracting 2 from 1 yields -1. 



The constant 9 is multiplied by the 
variable A. The result is 45. 

One variable is divided by the other. 

10 divided by 5 is 2. 

Five squared is 25. On the printer, 
exponentiation shows up as a 
bracket ([). 

The square root of 4 is 2; the ex- 
ponent 0.5 is equivalent to the 
square root. 
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The instruction PRINT 1+2 differs from PRINT "l"+"2": 



PRINT "l"+"2" 
12 

Character strings are not added; they are concatenated (strung together). 

PRINT "l" + "2" + ":<" 
122 



^ — ■ — m\ 



Example: Compound Interest 



Suppose you deposit $1000 in a savings account. What will be the interest paid and the 
balance of your account after 1 year and after 10 years? Assume the money is com- 
pounded once a year and earns an interest of 7%. 



1=1000*0. 0i 

PRINT I 
70 

B=1000+I 



PRINT B 

1070 
B=1000*l. 07 

PRINT B 

1070 
B=1000*l. 07C10 

PRINT B 
1967. 15 

PRINT B-1000 
967. 15 



COMMENTS 

Compute the interest paid the first 

year. 
The interest is $70. 
Balance at the end of the first year 

is the interest earned added onto 

the initial deposit. 
The balance at the end of the first 

year is $1070. 
Combining the above steps yields 

the balance in one computation. 
Compute the balance after 10 years. 

The bracket indicates exponentia- 
tion. 
After 10 years the balance is 

$1967.15. 
The difference between the final 

balance and the initial deposit of 

$1000 is the total interest paid 

over 10 years. 



In the above example we introduced the idea of more than one arithmetic 
function appearing in a single instruction. In the computation B=1 000* 1.07[1 
we have a multiphcation (*) and an exponentiation ([). The order in which 
these arithmetic operations is performed is most important. In this case the 
exponentiation is first, followed by the multiphcation. 

JREMEMBER: On the screen the symbol for exponentiation is t; on the printer and 
in this book it is [. 



2.6 HIERARCHY OF ARITHMETIC OPERATIONS 



Arithmetic operations are generally evaluated from left to right, keeping in 
mind these rules: 



1 . Whatever is inside the innermost set of parentheses is always evalu- 
ated first. The next innermost parentheses are evaluated next, and so on. 
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2. The arithmetic functions have the following three levels of prece- 
dence: exponentiations (raising to a power) before all others, then miiltipH- 
cations and divisions, and finally additions and subtractions, which are 
performed last. 

3. Within each level the operations are performed from left to right. 

The following examples demonstrate these rules (assume X = 1, Y = 2, and 
Z = 3): 



Expression 


Value 


Comments 


X + Y~Z 





+ and - have equal hierarchy, so compute 
from left to right. 


X + Y * Z 


7 


MultipUcation first followed by addition. 


X*Z/Y 


1.5 


* and / have equal hierarchy, so compute 
from left to right. 


Z*(X + Y) 


9 


Parentheses are evaluated first, followed 
by the multipHcation. 


Z/Y + Y/X 


3.5 


First Z/Y, then Y/X, then the 
addition. 


Zh=(X/(Y + Z)) 


.6 


The innermost parentheses are evaluated 
first: Y + Z = 5. Next the outer paren- 
theses are evaluated. 

X/(Y + Z) = 1/(2 + .3) = 1/5 = 0.2. Finally 
the multiplication is carried out: 
3 * 0.2 = 0.6. 



REMEMBER: In case of a tie in precedence, the sequence of operations is left to 
right. 



It is important to note that the presence of parentheses may or may not 
affect the value of the expression. If the parentheses do not alter the value of 
the expression, the parentheses are said to be redundant and are included for 
clarity alone. For example, 



Expression 


Value 


Comments 


Z/Y + Y/X 


3.5 


As explained above. 


(Z/Y) + (Y/X) 


3.5 


The parentheses are redundant; they only 
help clarify the sequence. 


Z/(Y + Y)/X 


.75 


Now the parentheses affect the value. First 
the ( ) are evaluated (Y + Y) = 4; then 
from left to right, Z/4/X = 3/4/1 = 0.75/1 
= 0.75. 



Another rule to remember is that arithmetic operations can fohow one 
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another without being separated by parentheses: 



COMMENTS 

PRINT 5-<-2::' The parentheses can separate the 

7" two arithmetic operations. 

PRINT 5 — 2 The same result without the ( ). 






Example: Metric Conversion 



Write a sequence of instructions to convert the height 5 feet 10 inches to inches and to 
centimeters. 



COMMENTS 

F=5 5 feet. 

1=10 10 inches. 

IN=F*12+I Compute the inches: first the mul- 

tiplication, and then the addition 

is performed. 
PRINT IN 

70 5 feet 10 inches equals 70 inches. 

CM='::F*12+I::"^=2. 54 The ( ) are evaluated first; then 
PRINT CM multiply by 2.54 to convert inches 

177. 8 to centimeters. 



REMEMBER: (1) Every expression must contain the same number of right and left 
parentheses. (2) The product AB must be written as A*B. 



2.7 VARIABLE TYPES 



We have distinguished between variables that store numerical values and 
variables that store character information. Numerical values can be stored in 
integer, single-precision and double-precision modes. These three different 
types of variables store numbers with different degrees of precision. Single- 
precision variables are accurate to 6 significant figures; double-precision 
variables are accurate to 16 significant figures. Integer variables store only 
whole numbers in the range -32768 to +32767. Each type of variable has a 
corresponding character that specifies the type. String variables are declared 
by means of a $, for example, AB$. The maximum number of characters 
that can be stored in a string variable is 255. Single- and double-precision 
variables are declared by means of a ! and a #, respectively, for example, AB! 
and AB#. Integer variables are declared with the % symbol, for example, 
AB%. The variable types are summarized in Table 2.1. The Hmits on single- 
precision numeric constants are -1.70141 lE+38 to +1.70141 1+E38; double- 
precision numbers must be in the range -1.70141 1834544556D+38 to 
+ 1.70141 1834544556D+38. The D represents the exponent in double- 
precision scientific notation. 
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TABLE 2.1 Declared Variables 



Variable 


Identification 


Limits on 




Type 


Character 


Magnitude 


Examples 


Single 


I 


-1.701411E+38 to 


AA!= 1.23456E+38; A! = -1.23456; 


Precision 




+1.70141 lE+38 inclusive 


six digits displayed 


Double 


# 


-1.701411834544556D+38 to 


B#= 1.234567890123456D+38; 


Precision 




+1.70141 1834544556D+38 


1 6 digits displayed 


Integer 


% 


-32768 to +32767 inclusive 


11% = 32767; ACE% = -32000 


String 


$ 


Up to 255 characters 


TEXTS = "TO BE OR NOT TO BE" 



REMEMBER: When a variable is not declared as an integer, a string, or single or double 
precision, it is automatically given single precision. 



The following examples illustrate the variable types: 



flB=l. 234564 
PRINT flB 
1. 23456 

flB=l. 234567 
PRir-JT RB 
1. 23457 

flB=1234567 
PRINT RB 
1. 23457E+06 

flB=ei. 001234567 
PRINT RB 
1. 23457E-03 

flB!=l. 234567 
PRINT RB! 
1. 23457 



RB! =1234567 
PRINT RB! 
1. 23457E+06 



flB#=l. 2345678901234567 
PRINT RBtt 

1. 234567890123457 
flB#=12345678901234567 
PRINT RBtt 

1. 234567S90123457D+16 



flB;-;=123456^ 

PRINT rb;-; 

?0V ERROR 



COMMENTS 

AB is a seven-digit single-precision 

number. 
Six digits are displayed. The sixth 

digit is rounded off. 

The sixth digit is rounded up. 

AB is a seven-digit number. 
Six digits are displayed, rounded, 
and in scientific notation. 

AB is a ten-digit number. 

Leading zeros are not significant. 

Declare AB! as a single-precision 

variable. 
Rounded and six significant figures 

are displayed. 

Declare AB! as a single-precision var- 
iable. E indicates single-precision 
scientific notation; six significant 
figures are displayed in scientific 
notation. 

Declare AB# as a double-precision 
variable. 

The sixteenth digit is rounded. 

A 17-digit number. Sixteen signifi- 
cant figures are displayed. The D 
indicates double-precision scien- 
tific notation. 

Declare AB% as an integer variable. 
Overflow error occurs since AB% 
exceeds 32767. 
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COMMENTS 

flB*=" 123:4567890125.4567" Declare AB$ as a string variable. 

PRINT flB* AB$ contains 17 characters. 

122456789ei25:4567 All 17 characters are displayed. 



REMEMBER: The variables AB, AB$, ABI, AB#, and AB% are all different variables. 



Example: Single Versus Double Precision 

Multiply in both single and double precision 14593 by 846 and 2220247 by 8. 

COMMENTS 

M#=14593+846 A# is a double-precision variable. 

PRINT R# The multiplication is in double 

12345678 precision with all eight digits dis- 

played. 

fl=14593*846 Single-precision multiplication; an- 

PRINT R swer rounded to six significant 

1. 23457E+07 figures. 

R=2220247*8 Single precision. 

PRINT R 
1. 7762E-f-07' Due to roundoff, only five digits 

are displayed. 

R#=2220247+8 Double precision. 

PRINT R# 
17761976 An American Bicentennial date. 



t-P 



Example: A Divisibility Check 



Integer variables only retain the integer portion of a number and ignore the decimal 
fraction. Integer arithmetic therefore differs from conventional arithmetic in that the 
result is always an integer. 

COMMENTS 

R=7 
B=2 

RB=R/'B 
PRINT RB 

flB"i=fl/B AB% is an integer variable. 

PRINT RB/i Only the integer portion of the 

3 fraction A/B is retained. 



Variable B divides into variable A evenly if AB equals AB%. In the above example AB 
does not equal AB%, so 7 is not divisible by 2. 
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COMMENTS 

RB=fl.-'B 
flB:-;:=M/B 
PRINT RB 

PRINT RB'i ABequalsAB%. So A is divisible by 

3 B; 6 is divisible by 2. 
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Example: Rounding to the Nearest Penny 



EXERCISES 2 



COMMENTS 



D=l, 236 D equals $1,236. 

C=100*D+0. 5 Converts dollars to cents and adds 

PRINT C 0.5 cents. 

124. i 100 X 1.236 + 0.5 = 123.6 + 0.5 

= 124.1. 
C"-.'=C. Drop fractional cents; truncate C. 

PRINT C.';/100 Convert to dollars and cents; 124/ 

1.24 100=1.24. 

$1,236 is rounded to $1.24. 

In this example we take advantage of integer arithmetic. We must remember that C% can- 
not exceed 32767. In the event that it does, a different approach must be taken in 
rounding. It involves the integer INT function, which is discussed in a later chapter. Does 
the above method properly round down? Try D = 1 .234 for which the expected result is 
1.23. 



1. Evaluate each of the following expressions; be sure you understand how each result is 
obtained. Refer to Appendix 1 for explanations of error messages. 

Instruction Anticipated Display Display 

a. PRINT 3+2-5 

b. PRINT 3+2*5 

C. PRINT 3+2/5 

d PRINT <3+2::'*5 

e PRINT 3*5-2 

PRINT 1+3*5-2 

PRINT 2*>:;9-2>/<10-3> 



f. 



h. PRINT 2* C 9-2 >/'::< 10-5 >*2:: 
i 



fl=3. B=5. C=10. fl*="fl".. B*="B". C*="C.".. D=2E-10. R#=3, 

D#=2E-10 

PRINT R/B 

PRINT <C:-B>*fl 

PRINT <B+1.-:'*C/B 

PRINT fl-B*C 

PRINT CCfi 

PRINT -CCfl 

PRINT <-C;)CR 

PRINT 4CRi:2 

PRINT R*+B*+C* 

fi:^=R/B 
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Instruction 


PRINT 


f\y. 


PRINT 


D 


PRINT 


D# 


PRINT 


fl+D 


PRINT 


fl#+D# 


?fi 




fl/;=3:2767 


PRINT 


f\K+± 


R?i=321 


^68 


PRINT 


fiK 


fl?'>0. 01 


PRINT 


fi'/. 


B/i=-0. 


1 


PRINT 


BK 


PRINT 


lEIsfci 


PRINT 


ESS 


PRINT 


1/1E3S 


PRINT 


1/3! 


PRINT 


1/I<# 


PRINT 


1/3 ! -»-l/3# 


PRINT 


2/^+l/3# 



Anticipated Display Display 



2. Multiply in single and double precision: 4869684.5 times 8. 

3. Is LET A + B = C a valid BASIC statement? Why or why not? Once you have 
answered the question, enter the statement into the computer. 

4. Write a minimal (as few characters as possible) BASIC expression for each of the 
following: 

Conventional Notation BASIC Notation 

a. A + B - C 

b. C X (A - Y) 

c. (A X B) - 2 ^_^ 

d. A X (B X C) X A ____^ 



3 

f . A X B - C X (A - B) ,. ^ ^. 
(A X L j 



5. Convert the following from BASIC notation to conventional notation: 

a. X/V-Z . ^_ 

b. Z*V-Z*X 

c. Z/X+V+X 

d. X*V-X*V ^— 

e. X*V*<Z+X>/X-V _^___ 



6. Let AB = 5 and AC = 6. Print the sum, the difference, the product, and the quotient 
of AB and AC. 

7. Print the square, the cube, the square root and the cube root of 2. (Note: the cube 
root corresponds to an exponent of V3 or 0.333333.) 

8. What is the displayed value? (LET A = 5.) 

a. PRINT R/0 ^ 

b. PRINT fl*0 ^ 

c. PRINT flCe 

d. PRINT 0*0 

e. PRINT 0/0 
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9. The grades on your last five tests were 80, 90, 95, 63, and 75. Find their average. 

10. Mr. Jones joined the programmer's union and now earns $9.50 per hour for a 40- 
hour week and overtime at a rate of 1 Va times his normal rate ($14.25) for any hours 
worked beyond 40 hours. Compute the weekly total gross pay and the overtime gross 
pay (if any) for the following hours worked . 

a. 40 hours 

b. 37 hours 

c. 47 hours 

1 1 . Hero's formula for the area of a triangle is 

area = VS X (S - A) X (S - B) X (S - C) 

where A, B, and C are the lengths of the three sides of the triangle and S is one-half 
of the perimeter; give BASIC expressions to evaluate Hero's formula, assuming 

a. The lengths of the sides are 3 , 4, and 5 . 

b. The lengths of the sides are stored in the variables SI , S2, and S3. 

12. Given a time duration in T hours and M minutes, write a BASIC expression to ex- 
press this in seconds. Print your answer for 1 hour and 30 minutes, and then also for 
hours and 1 minute. 

13. The following expression converts degrees Celsius (C) to degrees Fahrenheit (F): 

F = 7sC + 32 

Print the degrees Fahrenheit equivalent to -10, 0, 10, and 20 degrees Celsius. 

14. Compute the interest on $24 compounded annually at 3% since 1627, the year Man- 
hattan was bought for $24 from the Indians. The bank balance at the end of TV years 
is P X (1 -I- /y^, where / represents the annual interest rate (as a decimal; for exam- 
ple, 7% is 0.07) and P the initial bank deposit, 

15. a. How long does it take to double your money in the bank? Assume annual interest 

rates of 5%, 7%, and 9% and an initial balance of $1000. 
b. Does the time to double your money change when the initial deposit is varied 
from $1000 to $5000? 

16. The amount of the monthly payment necessary to pay off a home mortgage is given 
(in conventional notation) by 



(1 + I) 

A X I X 



N 



(1 + I)^ - 1 

where A is the amount of the mortgage and I is the monthly interest rate (as a deci- 
mal). For example, if the annual interest rate is 7%, the monthly interest rate in 
decimal form is 0.07/12. N is the number of monthly payments. Give a BASIC ex- 
pression that is equivalent to this formula. Assuming A has a value of $30,000, 
evaluate and print this expression for 

a. A lifetime of 20 years (480 months) at (yearly) interest rates of 8% and 10%. 

b. An interest rate of 10% and a hfetime of the mortgage of 20 and 30 years. 

17. As N gets larger, what value does the following expression take on: 



Let N= 10, 100, and 1000. 
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18. The positions of points on a graph are given in terms of their X (horizontal) and Y 
(vertical) coordinates. Suppose the coordinates of the first point are specified as XI, 
Yl , and the coordinates of the second are X2, Y2. 

a. Give a BASIC expression to print the slope of a line passing between these two 
points. The slope of the line is given as the ratio of the difference in their Y coor- 
dinates to the difference of their X coordinates: 

Y2 - Yl 

slope = 

X2 - XI 

b. Give an expression to print the distance between the two points. The distance is 
given by 

[(XI - X2)2 + (Yl - Y2)2] ^/2 

Use these expressions to compute the slope and distance for the following three sets 
of points: 

(1,2) and (4, 8) 
(3,4) and (5,4) 
(-1,2) and (-1,6) 



ahstifep 



3lccfln[iot 



en ppogpanis 



In the last chapter the compound interest example demonstrated the PRINT 
instruction along with the arithmetic operations. We computed the annual 
interest and the end-of-year balance of our savings account. We also deter- 
mined the balance after 10 years. This set of instructions is quite useful, and 
we may wish to use it several times. Therefore, it may be desirable to save 
this set of instructions rather than to reenter it every time. This can be done 
by writing a computer program. The computer program will make it possible 
to determine the balance in the savings account for different interest rates, 
different initial deposits, and different durations, without having to retype 
all the instructions for every computation. To do this, we combine the 
instructions into a computer program. 



3.1 WRITING A PROGRAM 



To illustrate how to write a program, we will copy from the last chapter 
the instructions to compute the interest earned and the end-of-year balance 
for a given initial deposit and a specific interest rate. We store the Deposit 
in variable D and the interest Rate (in decimal form) in R. 





COMMENTS 


D=iei0@ 


Initial deposit specified. 


R=0. 0? 


Interest rate specified in decimal 




form. 


I =D*R 


Compute the interest earned. 


PRINT 1 


Print the interest earned. 


70 


The interest is 70. 


PRINT D+I 


Compute and print the end-of-year 


107'0 


balance. 



In performing these calculations, the computer is in the command mode. 
Whenever the >.— appears on the screen, the computer is in the command 
mode. 

We want to show how to write the above instructions in the form of a 
computer program so that they can be saved and do not have to be reen- 
tered every time we wish to make these computations. To enter a program, 
we type in a line number followed by the instruction. 
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COMMENTS 


30 


I =D+R 




Line number 30 calculates t 
interest. 


40 


PRINT 


1 


Display the interest. 


50 


PRINT 


D+I 


Calculate and display the balance 


60 


END 




Last line of the program. 



the 



This program consists of four statements. Each statement has a Hne number; 
each statement may be up to 255 characters in length. The END statement is 
the last statement. We notice that, even though we are in the command 
mode, no results are displayed as each statement is entered. We distinguish 
in the command mode between the immediate mode and the programming 
mode. In the immediate mode, statements have no line numbers; in the 
programming mode they do. 

To run the program, we assign a value to the variables D and R. We may 
give them any values we want. We then execute the program by typing RUN 
and then pressing the ENTER key. The RUN command places us in the 
execution mode. Computer programs are executed in the execution mode. 

COMMENTS 

D=iei00 D and R are specified in the imme- 

R=ei. 07 diate mode. 

RUN Execution of program requested. 

Oops, the interest is zero. 

£1 The balance is also zero. 

What happened to our very first program? The RUN command caused execu- 
tion of the program stored in memory. But at the same time the RUN also 
executes a CLEAR, a command that resets ah the numeric variables to zero 
and all string variables to null. So in our case the variables D and R are reset 
to zero by the RUN command. To avoid this comphcation, we rewrite the 
program by adding to it the following two lines: 

10 D=100£i 
20 R=. 07 

This is a form of editing, which will be discussed in more detail later. We 
now execute the program. 

COMMENTS 

RUN Request execution of the program. 

70 The interest is displayed. 

i07Hi The total balance is displayed. 

The results are as expected. After the execution of the program has been 
completed, the READY reappears. We are again in the command mode. 

COMMENTS 

PRINT D.i I Prints the value of D and I in the 

1000 70 immediate mode. 

Their old values are still in memory. 
10 D=10000 Enter a new line 10 in the program- 

ming mode. 
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RUN 
7£u3 

10700 



Request execution; switch from 
command mode to execution 
mode. Interest is now 700. Bal- 
ance is now 10700. 



The semicolon in the PRINT allows us to display the values of several vari- 
ables on the same Hne. All variables that are to be printed in this manner 
must be separated by semicolons. The values of D, R, I, and B are all in 
memory at this point and can be displayed in the immediate mode. 



PRINT D.i R.I I.i D+I 

J_0@@0 £l7 700 



10700 



COMMENTS 

The semicolons must separate the 
variables. 



REMEMBER: (1) Whenever the >— appears, we are in the command mode. 

(2) In the command mode we distinguish between the programming and 
immediate modes. 

(3) In the immediate mode, statements have no line numbers. 

(4) In the programming mode, statements must have Hne numbers; Hne 
numbers allowed are to 65529 inclusive. 

(5) The RUN statement switches from the command mode to the exe- 
cution mode. 



Line numbers must be integers (whole numbers) between and 65529. 
Each hne in the program must have a number, and the execution of the pro- 
gram proceeds in ascending order of line numbers. The line numbers of suc- 
cessive instructions can be spaced. As a matter of fact, a spacing of 10 is 
recommended so that additional instructions can be sandwiched in at a later 
time. What is the spacing between line numbers in the savings account pro- 
gram we wrote? To take another look at the program, we type in LIST and 
ENTER. A listing of the program appears on the screen. 



Ll'l 


EiT 


Request a listing of the program. 




10 


D=10000 


Successive line numbers differ 


by 


20 


R=. 07 


10 in this particular program. 




30 


I =D+R 






40 


PRINT I 






50 


PRINT D+I 






60 


END 


The END is optional and may 
omitted. 


be 



The LIST command instructs the computer to display the Hnes of the pro- 
gram that are in memory. The various versions of the LIST command are 



COMMAND 


Li: 


-T 




Lli 


IT 


20 


Lli 


5T 


20- 


Lli 


-..1 


-20 



COMMENTS 

Entire program is displayed. 
Line 20 of the program is displayed. 
All lines as of line 20 are displayed. 
All lines up to and including line 20 
are displayed. 
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COMMENTS 

LIST 2e-se All lines 20 through 80 inclusive are 

displayed. 

LIST. The line just entered or edited is dis- 

played. 

Since the END statement is optional, let us delete the END in line 60 of 
the above program. To delete Hne 60, we type in 60 and press ENTER. 



60 and press ENTER 

LIST 60 

RERDV 



60 END- 
DELETE 60 

LIST 60 
REflDV 

Rur-j 

7 £10 

10700 



COMMENTS 

Delete line 60 of the program. 
Request a display of line 60. 
Line 60 no longer exists, so just the 
READY and the cursor appear. 

The END statement is reinserted. 
Another way to delete a line: type 

DELETE and the line number. 
Line 60 has again been deleted. 



Execute the above program without 
the END statement. 
The answers are the same as before. 



The DELETE command erases program lines from memory. It is possible 
to delete individual lines or a sequence of lines. 



COMMAND 

DELETE 60 
DELETE -60 

DELETE 40-60 

DELETE. 



COMMENTS 

Delete line 60. 

Delete all program lines up to and 

including line 60. 
Delete all lines starting with line 40 

and including line 60. 
Delete the line just entered. 



A convenient command to use during programming is the AUTO com- 
mand. During program entry, this command AUTOmatically displays the 
next line number. All you have to do is enter the actual BASIC statement. 
This line-numbering function is invoked by typing in AUTO. The numbering 
begins with line 10 and continues thereafter in increments of 10. Lines 20 
and 30 then follow. The various versions of the AUTO command are 



COMMAND SEQUENCE OF LINE NUMBERS 

fiUTO 10,20,30,,.. 
flUTO 50 50, 60, 70, . . . 
flUTO 50.. 5 50, 55, 60 

The starting line number and the increment can be specified. To stop the 
automatic line-numbering function, press the BREAK key. The READY sign 
appears. At this point, additional Hne numbers may be entered or the pro- 
gram may be run. In the event that AUTO displays a line number already in 
use, an asterisk appears alongside the number. Press the BREAK key if you 
do not wish to reprogram that line. 
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To erase the program from memory, we type in NEW. This command 
clears the screen, displays READY, and deletes the entire current program 
from memory. In the process it resets all numeric variables to zero and string 
variables to null. Then if we request execution by entering RUN, no results 
are displayed : 



RUN 

700 
10700 

NEN 
RUN 

PRINT D.: R.! I; D+I 





COMMENTS 

Request execution. 

The interest earned. 

The end-of-year balance. 

Erase the program in memory. 

Execution requested. 

No results; the program is gone. 

The values of the variables have 
been set to zero by the RUN com- 
mand. 



REMEMBER: Before typing in a program, enter NEW to delete the program already in 
memory. 



The variable MEM contains the number of unused bytes of memory. This 
variable can be used in the immediate and programming modes. 





COMMENTS 


NEN 
PRINT MEM 


Erase memory. 


1.5572 

fl=l 

PRINT MEM 
15565 


The number of available bytes is 

15572. 
Specify A. 
Now 15565 bytes remain; it took 7 

bytes to specify A = 1 . 



The total number of available bytes depends on the computer's memory. A 
16K computer has 15572 bytes available; a 4K computer has 3284 bytes. 






Example: Walking Kitty Corner 



According to the Pythagorean theorem, the length C of the hypotenuse of a right triangle 
is given by the expression 



C =V^ + B^ 




where A and B are the lengths of the other two sides. Write a program to compute and 
PRINT the hypotenuse C given the sides A and B. Also compute and print the difference 
between the sum of the sides A + B and the hypotenuse C. This difference represents the 
distance saved in walking kitty corner across an intersection. A program to perform these 
calculations is shown below. Remember to type in NEW before entering the program. 
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COMMENTS 


12 fl=I< 

14 B=4 

16 C=<flC2+Bi:2>C0. 5 

18 PRINT C 

20 PRINT fl+B-C: 

22 END 


Specify A as 3. 

Specify B as 4. 

C is computed from A and B; tak- 
ing the square root corresponds to 
raising to the exponent 0.5. 

Line numbers are picl<ed freely but 
in ascending order. 


RUN 
5 
2 




Execution is requested. 

The hypotenuse is 5 and the differ- 
ence (A -f B) - C is2;(4 + 3 - 5 
= 2). 



In this program we first specify A and B and then compute C. Once C is computed, 
the results are printed in Hues 18 and 20. In order to make another computation with 
different numbers, we must change the values of A and B. New values are assigned to A 
and B by changing lines 12 and 14 in the program. 

COMMENTS 

12 fl=12 Change lines 12 and 14. 

14 B=5 

RUN Now execute with a different A and 

B. 

IK C = 13. 

4 A-^B-C=12 + 5-13=4. 



REMEMBER: In memory the statements of a program are stored in line-number order. 
The sequence in which the Hnes are typed is not important . 



3.2 PROGRAM CLARITY, DISPLAYING MESSAGES AND COMMENTS 

It is important that a program be written in a way that is easily understood 
by the reader. A good program is one that proceeds smoothly and logically 
from beginning to end. A good program therefore requires good planning. 

Another factor influencing the readability of a program is the complex- 
ity of the BASIC expressions that are used. Because of the large number of 
built-in functions that are available and the ability to chain expressions 
together (we will see that later), some amazing calculations can be accom- 
pHshed in one line of code. The argument that such expressions execute 
more rapidly is not really relevant if the milliseconds of saved computer time 
are gained at the expense of minutes or hours of the programmer's and 
reader's time. 

Program clarity is also enhanced by the appropriate choice of variable 
names and the use of explanatory comments within the program. Comments 
are indicated by REM. They are nonexecutable statements that merely 
improve the readability of the program through explanatory comments. 

Another aspect of clarity deals with the output of the results. It is often 
useful to display messages along with the numerical results of a calculation. 
It helps us to recall what the results mean. We can display messages by dis- 



29 exercises 3 



playing a character string as a step in our program or on the same Hne by 
placing a semicolon between the character string and the variable. For ex- 
ample, in the kitty corner program we now enter into the computer 

17 PRINT "THE HYPOTENUSE IS" 

20 PR I NT "DIFFERENCE IN LENGTHS IS"; fl+B-C 

Since the rest of the program is still in the computer, line 17 is added to it, 
and the new line 20 replaces the old version of hne 20. We also add a com- 
ment RE Minding us that variables A and B are the legs of the right triangle. 

10 REN fl&B ARE THE LEGS OF fl RT. TRIRNGLE 

Like all other statements, a REM statement may be up to 255 characters 
in length. The abbreviation for REM is the apostrophe. 

10 •' fi&B ARE THE LEGS OF fl RT. TRIANGLE 

This version of line 10 is identical to the above. For clarity we do not use the 
abbreviated form of REM. 

We now list the program and execute it. 

COMMENTS 

LIST Request a listing of the program. 

10 ■ A&B ARE THE LEGS OF A RT. TRIANGLE The reminder comment. 

lei A— Ik! 

14 B=5 

16 C=<AC 2+Bi: Z':>1 0. 5 The bracket means exponentiation. 

17 PRINT "THE HYPOTENUSE IS" Line 17 was properly inserted. 

18 PRINT C 

20 PR I NT "DIFFERENCE IN LENGTHS IS"; fl+B-C The new version of line 20 is now 

22 END part of the program. 

RUN Execution is requested. 

THE HYPOTENUSE IS 

13: 
DIFFERENCE IN LENGTHS IS 4 The difference 12 + 5 - 13 = 4. 

The character strings and numerical values are printed in one case on separate 
lines and in the other case on the same line. Note the blank space between 
the word IS and the number 4. For a negative result the minus sign takes up 
this space. 

REMEMBER: REM statements make a program easier to follow. Character informa- 
tion with PRINT statements makes the output results self-explanatory. 



EXERCISES 3 



1. Give the display you expect from executing the following examples. Check your re- 
sults by entering them in the immediate mode. Watch out for the positions of the 
blanks in the expressions and their displays. 
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Anticipated Display Display 







Instruction 


a. 


PRINT 


cr 


b. 


PRINT 


5+6 


c. 


PRINT 


5.i 6 


d. 


PRINT 


"FIVE".: 6 


e. 


PRINT 


"FIVE".! "SIK" 


f. 


PRINT 


"FIVE".; -6 


g- 


PRINT 


"FIVE "^X 


h. 


PRINT 


"1 2 3 "j "4" 


i. 


X=i2 






PRINT 


"R DOZEN IS "iX 


1- 


PRINT 


"TWO DOZEN IS" 2*X 


k. 


V=8 




1. 


PRINT 


X.i V 


m. 


PRINT 


"X=".i K:- "V="; V 


n. 


PRINT 


MEM 


0. 


NEW 




P- 


PRINT 


MEM 



10 PRINT 5 -THIS IS R TEST 

RUN 



2. Write the proper BASIC expressions to produce the following output. Use the vari- 
ables A = 1, B = 10, and C = 100 to produce numeric output. (For example, the 
11 1 in part c is obtained by displaying A + B + C) 

a. MV COMPUTER LIKES ME 

b. 100 VERRS RGO 

c. Ill VERRS RGO 

d. 1 PLUS 10 EQURLS 11 

e. HE HRS -10 DOLLRRS 

3. The variables M, D, and Y are used to store today's date. Write the statements that 
will express the date as --/--/--. The date June 11, 1984, will then appear as 
6/1 1/84. Repeat the process with variables A$, B$, and Y$. 

4. Specify an opening bank balance. Compute and display the interest for one day, one 
week, one month, three months, half a year, and one year. Assume an annual interest 
rate of 8%. Change the interest rate to 12% and repeat the computations. 

5. What output will the following programs produce? 

b. 10 R*="BRSEBRLL " 
20 B*="HOT DOG " 
30 C:|:="RPPLE PIE" 
40 PRINT R*+B*+C* 
50 PRINT"RND CHEVROLET"*' 



40 ? B/2.i " R DOZEN OF THE OTHER" 

Note: Did you type in NEW before entering each program? 
6. Write programs that will produce the following displays: 

a. IN FRENCH RED IS ROUGE b. THE SUM OF X RND V IS: 5 
IN GERMAN IT IS ROT THE PRODUCT OF X RND V IS: 6 

Mote: In this program let X and Y equal 2 
and 3, respectively. 

^"You Deserve a Break Today®" and "McDonald's®" are registered trademarks owned by Mc- 
Donald's Corporation and are reprinted only by written permission. 



a. 20 


PRINT 


"R BRERK TODRV" 


10 


PRINT 


"VOU DESERVE" 


30 


PRINT 


"RT MCDONRLD'S" 


C. 10 


R=6 




20 


LET B= 


=1 


30 


PRINT 


R.i " OF".i B.i " IS" 



•^Reprinted by permission of General Motors Corporation. 
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7. Write and run a program that uses variables A, B, and C to display D if A - 2, B - 3, 
C = 4, and D =A*B - C. 

8. Write a program to put in two numbers and output their quotient. What if either one 
of the two numbers is zero? 

9. Write a program to put in three numbers and display their average. 

10. Write a program to compute the volume of a cube of side S. The program should 
yield output in the following forms. (The volume is the side cubed. Use S = 10, and 
subsequently S = 20.) 

a. THE VOLUME IS 

b. THE VOLUriE IS * 

c. THE SIDE IS* — 

d. THE SIDE IS *— 
THE VOLUME IS* 

The * stands for a space (blank), and the dashes are to be filled in by the values of 
the variables. 

11. Modify the program of the previous exercise to compute and display the surface area 
of the cube in addition to its volume. The surface area equals six times the area of 
each face. The area of each face is S*S. Use S = 1 5. The output should be 

THE LENGTH OF EACH SIDE IS * — 

THE VOLUME IS * *flND THE SURFfiCE flREfi IS* 

The * stands for a space (blank). 

12. Write a program to produce the following picture of a tree. 

X 

xx>=; 

xxxxx 

xxxxxxx 

XXX 
XXX 

13. Investigate how much memory is taken up by each of the following instructions: 

a. fl=l 

b. fl;^;=i 

c. fi#=l 

d. fl!=i 

e. R*="l" 

f. PRINT 1 
2. 10 fl=l 



3.3 KEYBOARD RESPONSE: INPUT 



In all our programs so far we emphasized the need for specifying information 
prior to execution. In the case of the program kitty corner we specified the 
sides of the triangle in lines 12 and 14 of the program; in the case of the 
compound interest program we specified the deposit and the interest rate. A 
more convenient way of entering this information is to do so during the 
actual execution. This is accomplished with the INPUT statement. When the 
INPUT statement is encountered during execution, the computer stops to 
let the user enter the necessary information via the keyboard. The INPUT 
statement can call for several numeric or string variables at once. The items 



32 



ch. 3 I computer programs 



ill the list must be separated by commas. We now incorporate the input 
statement into the compound interest program, which we presented earher. 
Remember to type in NEW before entering the program. 



10 REM COMPOUND INTEREST 

15 PRINT "ENTER THE INTEREST RATE.. FOR EX. ©. 07" 

20 INPUT R 

25 PRINT "ENTER INIlIflL DEPOSIT & NO. OF VEARS SEP. 

BV fl COMMA" 

30 I NPUT D.. N 

35 B=D*<1+R;.'LN 

40 PRINT "THE BALANCE AFTER".; N.; "VEARS IS *"j B 

45 PRINT "THE TOTAL INTEREST PAID IS *"..■ B-D 

50 END 



COMMENTS 

Just a REMinder. 
Tells you what to enter. 



Enter two items. 
Bracket is exponentiation. 
Output with appropriate messages. 



RUN 

ENTER THE INTEREST RATE FOR EK. 0. ©7 

? 0. 07 

ENTER INITIAL DEPOSIT *: NO. OF VEARS SEP. BV A COMMA 

? 10 £10.. 1 

THE BALANCE AFTER 1 VEARS IS t- 1070 

THE TOTAL INTEREST PAID IS *■ 70 



Request execution. 

The ? indicates input expected. 

Type 0.07 and press ENTER. 
You enter 1000, 1 



RUN 

ENTER THE INTEREST RATE FOR EX. O. 07 

? 0. 07 

ENTER INITIAL DEPOSIT & NO. OF VEARS SEP. 

? 1000.. 10 

THE BALANCE AFTER 10 VEARS IS * 1967. 15 

THE TOTAL INTEREST PAID IS * 967. 15 



BV A COMMA 



Request another execution. 

You enter 0.07 

The deposit is $1000 for 10 years. 



REMEMBER: The INPUT statement is an excellent means for data entry during exe- 
cution. It makes the program general in use. 



i^~^ 
^^•^Z 



Example: An Arithmetic Trick 



The computer asks you to think of a three-digit triple number (such as 222, 666, 
and so on). You then "tell" the computer the total of the three digits (18 for 666). The 
computer will then reveal your original number. 



10 CLS 

20 INPUT "HI.. NHAT IS VOUR NAME".: N* 

30 PRINT "OK ".;N*.i" I HAVE AN ARITHMETIC TRICK FOR VOU" 

40 PRINT "THINK OF A THREE-DIGIT TRIPLE NUMBER" 

50 PRINT "TVPE IN THE SUM OF ITS DIGITS" 

60 INPUT S 

70 PRINT N$.: ".. VOUR NUMBER WAS ",; 37*S.: " ! " 

80 END 



In order to keep the program and comments separate, line 25 of the above program has been 
split. The computer actually displays it on one line. Similarly, lines of programs are split elsewhere in 
the book. 
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RUN 

HI.. WHfiT IS VOUR NRME? ERIC 

OK ERIC I HAVE RN flRITHMETIC TRICK FOR VOU 

THINK OF fl THREE-DIGIT TRIPLE NUMBER 

TVPE IN THE SUM OF ITS 3 DIGITS 

? 18 

ERIC VOUR NUMBER WAS SSS ! 

The CLS command is introduced in line 10. CLS clears the screen. It is a good idea to 
start programs with the CLS command since it removes from the screen during execution 
all unnecessary clutter. 

The above program illustrates the use of INPUT in conjunction with numeric and 
string variables. As input, a string may be entered with or without quotes around it. How- 
ever, if the string contains a comma, a leading blank, or a colon, then the quotes are 
required. 

A new form of the INPUT statement is shown in line 20. This statement is equivalent 
to the two statements: 

20 PRINT "HI.. WHAT IS VOUR NRME?" 
25 INPUT N* 

Upon execution of the program, the message HI, WHAT IS YOUR NAME is displayed on 
the screen along with a question mark. The computer adds the question mark to denote 
INPUT. It is therefore recommended that the message be phrased in such a way that it 
forms a question. Once the message appears on the screen, the user enters a value for the 
variable and presses ENTER. A semicolon must separate the message from the variable in 
the INPUT statement. 



REMEMBER: You cannot input a string into a numeric variable, or vice versa. If you 
do, the computer will respond by displaying ?REDO. It requests that all data for the 
particular INPUT statement be reentered. 



3.4 EDITING COMPUTER PROGRAMS 



In the process of writing computer programs we frequently make errors that 
need to be corrected before the program will operate properly. If the error is 
detected before the ENTER key has been pressed, the <- key can be used to 
backspace the cursor and delete one character at a time. The shift <- key is 
used to delete an entire Hne. There are other ways of correcting the code if 
an error is detected after the ENTER key has been pressed. 

Suppose the following program has been written to assign the values 5 
and 10 to the variables X and Y, and then to compute and print their ratio. 

COMMENTS 

LI5J Request a listing. 

10 V=5 

20 V=10 

30 PRINT "THE RflTTIO OF X AND V IS"; X/V RATTIO is misspelled. 
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We execute the program : 

COMMENTS 
RUN 
THE RflTTIO OF X AND V IS 8 RATTIO needs editing. 

This result is unexpected; it is incorrect. We also notice that the word 
RATTIO has a typographical mistake. So the program needs editing. We 
need to fix line 10 where the Y is to be replaced by X, and in line 30 the 
word RATTIO is misspelled. {Note: in Level I BASIC we would need to 
completely retype lines 10 and 30.) 

Since line 10 is so short it makes good sense to retype the Hne. As for 
line 30, removing a letter T without retyping the entire line is helpful. In 
order to demonstrate editing, we now edit both lines 10 and 30. 

First we switch from the command mode into the edit mode by typing 
in the EDIT command along with the line number to be edited. Then press 
ENTER. 

COMMENTS 

EDIT 10 and press ENTER Switch from the command mode 

10 — into edit mode. 

The computer's response; the _ in- 
dicates the cursor's position. 

Now we press L (hst Hne) without ENTER; the computer responds by Hsting 
line 10 as it is presently stored in the computer followed by 10_ . 

COMMENTS 

10 V=5 We now wish to replace the Y in 

10_ line 10 by an X. 



10 X 



Type C to indicate a character is to 
be changed followed by X. 



At this point we have replaced the Y by X in line 10. The remainder of line 
10 is fine. Pressing the space bar moves the cursor over to the right, one 
space at a time, and displays the remainder of the line. 

COMMENTS 

10 X=5 _ Pressing the space bar twice dis- 

plays the = 5. 

Now press ENTER to record the change. 

While editing, we do not press ENTER. Once ENTER is pressed the com- 
puter records the changes made in the current line and returns you from the 
edit mode to the command mode. Additional lines can then be edited or the 
program can be run. 

We continue to edit our program. Next we will remove the extra T in 
line 30: 

COMMENTS 

EDIT 30 and press ENTER Request edit of line 30. 

•^® — Computer's response to the request. 
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TABLE 3.1 Editing procedures 



Purpose 



Procedure 



When in command mode 

Delete an entire line 
Replace an entire line 

Switch to edit mode to edit line number 

When in edit mode 

Switch to command mode and record 

changes 
Save changes and switch to command 

mode 
Cancel changes and switch to command 

mode 
Cancel changes and switch cursor to 

start of Une 
Display characters one at a time 

Display entire line 
Display rest of Une 
Delete rest of line 

Delete characters within a Une 



Delete all characters from current 
cursor position up to nth occurrence 
of character c counting from present 
cursor position 

Change n characters within a line 

Insert characters within line 

Move cursor n spaces to the left 
Move cursor to nth occurrence of char- 
acter c, counting from current 
position 
Move cursor n spaces to the right 



Type the line number and then ENTER 
Type the new version of the line and 

then ENTER 
Type EDIT N and ENTER 



Type ENTER 
Type E 
Type Q 

Type A 

Type space bar; cursor moves to the 
right 

Type L; can now edit the line 

Type X; can now add to line 

Type H; can now add to line; to stop but 
remain in edit mode type SHIFTt 

Type nD to delete n characters starting 
at the current cursor position; or type I 
and press <- key to delete one charac- 
ter at a time; to escape I mode but 
remain in edit mode, type SHIFTt 

Type nKc; if no value is specified for n, 
then all characters wiU be deleted up 
to but not including the first occur- 
rence of character c 

Type nC to change n characters starting 
at the current cursor position 

Type I; to stop but remain in edit mode, 
type SHIFTt 

Type n-^ 

Type nSc 



Type n space bar 



Press L to display the entire line: 



COMMENTS 



30 PRINT "THE RflTTiQ OF X AND V IS".; X/V Computer displays line 30 and sets 

30 up for its change. 

Now press the space bar to display the line one character at a time up to the 
first Tin RATTIO. 
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TABLE 3.2 Editing examples 



BASIC Statement 



Correction 



Editing Procedure 



10 PRINT fl; B.: i B*G 



Change B's to G's 
and delete the third 
semicolon 



20 PRINT Uri;-N 



30 PRINT fl.!B;C 



40 INPUT EZ. K.. MZ 



Delete the minus 



Change the 8 to 852 



Change the K to TZ 



50 PRINT LET fl=5 



60 INPUT fl.. B 



Delete PRINT and 
LET 



Change line number 
60 to 65 



Type EDIT 10 and ENTER. 
Press space bar eight times 
until the first semicolon 
appears. Press C followed by 
G to change the first B to a 
G. Press the space bar once 
to display the second semi- 
colon. Press D to delete the 
third semicolon. Then press 
C and G. Press ENTER to 
escape the edit mode and 
return to the command 
mode. 
Type EDIT 20 and ENTER. 
Press X to display the entire 
line. Press-^ twice to erase 
-N. Type N and press 
ENTER. 
Type EDIT 30 and ENTER. 
Press 2S to search for the 
second semicolon. Then 
type 2152 to insert the two 
digits. Press ENTER. 
Type EDIT 40 and ENTER. 
Press SK to search for the 
first occurrence of K. Press 
C followed by T and I fol- 
lowed by Z to respectively 
change the K to T and insert 
Z after the T. Press ENTER. 
Type EDIT 50 and ENTER. 
Press KA to delete all char- 
acters up to the first occur- 
rence of A. Press ENTER. 
Retype entire line as line 65. 
Then delete line 60 by typ- 
ing 60 and ENTER. Line 
numbers cannot be changed 
directly. 



30 PRINT "THE RflT 



COMMENTS 

Press space bar to display the line 
up to the T. 



To delete the second T, press D (Delete) once and press ENTER to return to 
the command mode. Another way to delete the second T is to press I (Insert) 
followed by backspace ^ once and then ENTER. 
To display the current version of Hne 30 we enter 



COMMENTS 



LIST 30 
30 PRINT 



"THE RATIO OF X AND V IS"; X/V I 



Request display of line 30. 
t is now correct. 
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We run the edited program and obtain the expected output. 

RUN 

THE RRTIO OF X RND V IS . 5 

Numerous editing features are available in Level II BASIC. (Level I 
BASIC'S editing is very limited.) Table 3.1 summarizes editing procedures. 
Table 3.2 gives additional examples of editing. 

REMEMBER: Do not hesitate to experiment with the edit procedures. Practice will 
make you proficient. 

The editing commands make it possible to change any character within a 
hne except the line number. To change a line number, it is necessary to 
delete the line and then retype the entire line with the new line number. 

3.5 DEBUGGING PROGRAMS 

Unfortunately, nobody is perfect and we do make mistakes. Naturally, an 
important aspect of programming and a major portion of program develop- 
ment time is normally devoted to isolating and correcting errors. This proc- 
ess is called debugging. 

Generally, programming errors are classified as language errors and logi- 
cal errors. These two types of errors differ in that language errors are de- 
tected by the computer whereas logical errors are not. Once the program has 
been typed in and is run for the first time, the computer will interpret each 
line and list the language errors in the form of diagnostic messages. Here the 
computer is most helpful as it displays abbreviated error codes, such as /O 
ERROR for division by zero or SN ERROR (SyNtax error) along with the 
line number in which the error occurred. Some errors even switch execution 
into the edit mode. A complete list of these errors is given in Appendix 1 . 

Once we have corrected all the language errors, we expect to run the pro- 
gram and obtain the desired output. When the answers do not make sense, 
we must set out to locate the errors in logic. They are usually more difficult 
to find since the computer offers us no assistance. For example, in com- 
puting the end-of-year balance of a savings account we may inadvertently 
subtract the interest earned instead of adding it to the initial deposit, or we 
may use an incorrect formula in our financial model. Clearly, logical errors 
are more difficult to detect than language errors. A more systematic ap- 
proach must be taken so that we can be reasonably sure that the program is 
free of bugs. 

A useful approach is to first run the program with test data for which the 
results are known. If the computer's answers check out, we are ready to 
make a run with the actual data. Most data processing appHcations involve a 
large amount of data. Therefore, it is important that the data be checked by 
the program as they are entered. For example, if the data involve ages, nega- 
tive ages are impossible; similarly, working a 400-hour week instead of a 40- 
hour week is not possible. A data validity check built into the program will 
help to avoid erroneous results due to bad data. 

The process of debugging lengthy programs is facilitated by a well- 
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organized program that computes the variables of interest in an orderly 
fashion. Also, assigning variables names that suggest their meaning helps in 
the debugging process. 




Example: Mortgage Payments 



As an example of the debugging process, we present a program that computes montlily 
mortgage payments. The payment is 

(1 + I)^ 
P = M X I X 



(1 + I)^ - 1 

where P is the monthly payment, M is the amount of the mortgage, I is the monthly 
interest rate, and N is the rmmber of monthly payments for the duration of the loan. 
The program we have is 

10 REM PROGRAM COMPUTES MONTHLY MORTGAGE PflVMENT^i 

15 PRINT "ENTER THE AMOUNT AND VEARS OF MORTGAGE" 

20 INPUT M.. V 

25 PRINT "ENTER THE INTEREST RATE IN /i" 

30 INPUT I 

35 REM CONVERT MORTGAGE DURATION FROM VEARS TO MONTH^^ 

40 N=V*12 

45 REM CALCULATE THE MONTHLV INTEREST RATE 

50 1=1/12 

55 REM CALCULATE MONTHLV PAYMENTS 

60 p=M* I * < I +1 ::. C N/ < •:; 1+ 1 > [ .:; N-i ;;. 

65 PRINT "THE MONTHLV PAYMENT IS *".; P 

70 END 

Having typed in the program, we will now execute it for the first time, keeping in 
mind that it may have language as well as logical errors. The test data we plan to use first 
are M = 1200, Y = 1, I = 1; a mortgage of $1200 for one year at 1% interest rate. The 
expected monthly payments for 12 months (1 year) are slightly more than $100. 

COMMENTS 

f'-'-'N Request execution. 

ENTER THE AMOUNT AND VEARS OF MORTGAGE Computer displays the message. 

? 1200.. 1 You enter the values. 

ENTER THE INTEREST RATE IN V: Computer displays the message. 

? 1 You enter the value. 

?SN ERROR IN 60 During execution computer detects 

f^f •^^-''t' a syntax error and switches from 

^0— the execution mode to the edit 

mode. 

We have encountered error SN, a syntax error, in line 60, and the computer has 
placed us in the editing mode. We press L to display the entire line: 

60 P=M* I * <:; 1+ 1 ;:- C N.-' ( < 1+ 1 > C < N-1 ::• 
60 __ 

We notice that the parentheses do not balance; we must delete the last ( in line 60. Press 
X to display the entire hne with the cursor appearing at the end of the line. 

60 P=M* I * < 1+ 1 ;;. I N/ ■;: .:; 1+ 1 > l •:. N-i > 
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Now press <- five times to move the cursor to the left under the last left parenthesis (, 
and retype from there the N-1). Press ENTER to store the line. We list line 60: 

COMMENTS 

LIST €.0 Request a display of line 60. 

60 F-I1*I*<H-I >i:N.-'('::1+I>1:N-1> The corrected version of line 60 is 

in memory. 

Now that the syntax error has been corrected we again run the program. 

RUN 

ENTER THE flMuUNT RND VERRS OF MORI QflGE 

? 1200.. 1 

ENTER THE INTEREST RATE IN "•;: 

? 1 

THE MONTHLV PRVl-lENT IS * 161. 955 

No more language errors! We have an answer, but it is incorrect. We expected an answer 
slightly more than $100. Now what? We have a logic error! Going over the program line 
by line we notice that the interest rate in line 50 needs to be converted to the decimal 
equivalent of percent; that is, we nmst multiply the interest rate by 0.01 . We retype hne 
.50. 

50 i = i+0, 01/12 and press ENTER. 

RUN 

ENTER THE RMOUNT RND VERRS OF MORTGRQE 

? 1200. 1 

ENTER THE INTEREST RRTE IN X 

? 1 

THE MONTHLY PRVMENT IS * 100. 542 

Now the answer makes sense. We have done it and can now expect the program to work 
for other data. 

RUN 

ENTER THE RMOUNT RND VERRS OF MORTGRGE 

? 50000.. 25 

ENTER THE INTEREST RRTE IN "i 

? 10. 5 

THE MONTHLV PRVMENT IS $ 472. 091 

If during the data entry you change your mind and wish to start over, press BREAK 
to get the READY. Then type RUN and enter the desired data. 



REMEMBER: Never take it for granted that the answers from the computer are neces- 
sarily correct. 



3.6 STOP AND CONTINUE EXECUTION 



An important debugging technique is to place several STOP statements with- 
in a program. The STOP interrupts the execution and prints the message 
BREAK IN line number. For example, if line 25 is a STOP, then upon execu- 
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tion of line 25 the message BREAK IN 25 will appear. Once execution has 
been stopped it is possible to examine variables by printing their values. To 
resume execution after a STOP or a BREAK, type in CONT and press 
ENTER. If the program is modified during the BREAK, then execution can- 
not be resumed by means of the CONT statement. Instead, type in RUN and 
start the execution all over. 



F~^ 

%^^^ 



Example: Temperature Conversion 



10 INPUT "DEGREES FAHRENHEIT".! F 

20 C=5+ < F-3:2 ;:• ,•■•'9 

25 STOP 

30 PRINT F.i FC. 5.i C.; CC . 5 

40 END- 



RUN 

DEGREES FAHRENHEIT? 86 

BREAK IN 25 

PRINT C 

30 
CONT 

86 S. 27362 30 5. 47723 



COMMENTS 

Input temperature in "Fahrenheit. 

Convert to "Celsius. 

Stop execution here. 

Print the temperatures and their 
square roots. Bracket is exponen- 
tiation. 

Request execution. 

Input °F. 

Execution is stopped. 

Examine the value of C in immedi- 
ate mode. °C = 30. 

Request continuation of execution. 

The temperatures and their square 
roots. 



DEGREES FAHRENHEIT? 

BREAK IN 25 

PRINT C 

-17. 7778 

RUN 



Since °C is negative, the square root 
cannot be taken. 

Instead of typing in CONT, now 
type in RUN for another execu- 
tion. 



3.7 SAVING A PROGRAM ON CASSETTE TAPE 



Once a program executes free of any bugs, it may be desirable to save it on 
tape for future use. Place the cassette tape into the recorder, rewind the tape, 
set the digital counter to zero, and press the RECORD and PLAY buttons. 
The CSAVE command loads a program from the computer onto the tape. 
With this command you must specify a program name. For example 



CSAVE "I" 

moves the program residing in memory onto tape and cahs it "I". The name 
of a program may be any single alphanumeric character other than the 
quotes. If the name is several characters in length, only the first character is 
recognized by the computer. So CSAVE "INTEREST" is equivalent to 
CSAVE "I". Once the program has been saved on tape, read the digital 
counter and make a note of where on the tape the program is saved. 
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REMEMBER: To avoid confusion, write the names of the stored programs on the case 
of the tape. 



When a program is saved on tape, there is always the possibility that the 
transfer is not flawless. Therefore, a subsequent loading of the program from 
the tape may result in errors or even possibly in a loss of the program. One 
possible safeguard is to save the program on tape twice, giving it two differ- 
ent names, for example, CSAVE "\" and CSAVE "K". 

The CLOAD? command offers another alternative. Once program "\" 
has been saved on tape using the command CSAVE "I", it can be checked by 
the command 

CLOfiD? "I" 

Rewind the tape and press the PLAY button on the recorder. The program 
on tape and the program in memory are compared line by line. If the pro- 
grams do not compare perfectly, the message "BAD" appears. The CSAVE 
"I" command will then have to be executed again. 

The CLOAD command will load the first program from the cassette into 
the computer. To ready the recorder, rewind the tape and press the PLAY 
button. However, if the desired program is not the first program on the tape 
but rather the fifth program whose name is "I", then the command 

CLOflD "I" 

will skip over the first four programs and load the program "I". This pro- 
gram was originally loaded on tape using the command CSAVE "I". So as 
long as the tape is rewound, the computer can pick up the desired program 
and load it into memory. 



3.8 DECLARING VARIABLE TYPES 



In the previous chapter we noted that variables can be declared as single preci- 
sion, double precision, integer, or string. The characters !,#,%, and $ specify 
these variable types and are part of the variable's name. Instead of appending 
the appropriate character to the variables' names, it is also possible to declare 
variables as integer, single precision, double precision, and string by means 
of separate statements in the program. Declaring a variable as integer may be 
useful, since integer values take up less memory than other numeric values. 
Also, integer arithmetic is faster. In some applications it may be necessary to 
declare variables as double precision to produce more accurate results. 
The statement 

COMMENTS 
25 DEFINT fl.. B.. E-Q Variables A, B, E, F, G are integers. 

declares variables A and B, as well as variables E through G, as integer vari- 
ables. These variables and all variables whose names start with these letters 
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are taken as integers within the program as of line 25. For example, variables 
ABC, A2, and EZ are then integer variables. However, the variables A2! or 
EZ# are, respectively, single- and double-precision variables even though 
their names start with the letters A and E. The type declaration characters 
(see previous chapter) always override the declaration statement. 
The statements 



3.0 DEFSNG y~Z 
55 C-EFDBL S.. U-W 
40 DEFSTR K.. L 



COMMENTS 

Variables X, Y, Z are single preci- 
sion. 

Variables S, U, V, W are double pre- 
cision. 

Variables K, L are strings. 



define the Hsted variables as single-precision, double-precision and string vari- 
ables, respectively. These statements may be used in the command mode 
with and without Hne numbers. 



DEFINT I 
DEFSNG fl 
DEFDBL D 
DEFSTR S 

IT=40000 

?0V ERROR 

fl=l. 234567 
PRINT fl 

1. 2345? 
D=1234567S9 
PRINT D 

±2345b7Sy 

PRINT fl-i-D 

±23456790. 
S*="STR1NG" 
PRINT S*-HH 
?TM ERROR 



fl*=" STRING" 
PRINT S*-i-fl* 
STRINGSTRINQ 



2345671 



COMMENTS 

The variables are declared. 



IT starts with I; overflow occurs 
since integers cannot exceed 
32767. 



In single precision have 6 significant 

figures. 
In double precision have up to 16 

significant figures. 

Surprise: A and D can be added. 
Result is in double precision. 

Type Mismatch error. Cannot add a 
string to a number. 

Declare A$ as a string variable. 
S and A$ can be concatenated; they 
are both string variables. 



EXERCISES 4 



REMEMBER: The variable identification characters !, #, %, and $ override the DEFini- 
tion statements. 



The following exercises illustrate techniques you have learned in the preceding sections. 
When you write programs, be sure that the programs actually work properly. Work out 
some test examples by hand and compare them with the computer's results. Take the 
time to organize your input and output displays into an easily readable form. 
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1. Suppose the following program has been entered: 



±0 fl=i0 

20 B=30 

3.0 PRINT "THE PRuDflCT OF fl RND B IS"; R+B 

40 END 

What display will the following instructions produce 

Instruction Anticipated Display Display 

a. LIST 

b. LIST 3:0 

c. LIST 10-3:0 

d. LIST. 

e. LIST -40 

f. LIST 30 

g. EDIT 3:0 

h. EDIT. 

i. EDIT 

j. RUN 

k. RUN 20 

1. 10 

m. CLS 

n. RUN 



2. The program listed above needs to be edited to correct the typographical error in 
line 30. Perform the edit and then Ust the line to be sure it has been edited properly. 
Perform the edit by 

a. Retyping the entire line. List the program to check your editing; then reenter the 
Une with the typographical error in it. 

b. Entering EDIT 30 followed by the X command. Move the cursor back, erase the 
A, and then retype properly. 

c. Entering EDIT 30. Then press the space bar up to the D before the A. Then press 
C followed by U, the proper letter in PRODUCT. Then press ENTER. 

3. Enter the following instruction 

10 PRINT "RBCEF" 

Edit the line to insert the letter D in the appropriate spot using the I edit command. 

4. Edit each of the following BASIC statements. Try several approaches, and for each 
statement determine the best procedure. First enter the given BASIC statement; then 
type EDIT N, where N is the Hne number of the statement to be edited. 



BASIC Statement 


CORRECTION 


10 PRRINT 


Delete the extra R 


15 INT R 


Insert a PU for INPUT 


20 PRINT "PHVSICS IS PHUN" 


Replace PH by F 


25 PRINT R,. B.. C 


Replace the commas by semicolons 


30 INPUT "VOUR RQE".i X 


Replace the X by AGE 


35 END 


Replace 35 by 99 


40 V=5*';;X-32>/9 


Replace the Y and X by C and F, 




respectively 


45 PRINT "DON'T TRERD ON ME" 


Remove all characters to the right 




of TREAD 


50 PRINT "ONE FOR THE MONEV" 


Replace the third letter by $ 


55 LET :«:=5 


Delete the LET 
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5. Consider the following program: 



NEW 

10 INPUT fl 

20 PRINT fl 

The following data are entered for A during execution: 

Anticipated Display Display 

a. 5 

b. 5^ 6 

c. 4+1 

d. FIVE 

e. "FIVE" 



6. Consider the following program: 

10 INPUT fl* 
20 PFaNT fl* 

The following data are entered for A$ during execution: 

Anticipated Display Display 

a. FIVE 

b. 5 

c. FIVE AND TEN 

d. 5+10 

e. FIVE.. AND TEN 

f. FIVE: 10 

g. "FIVE: 10" 

h. " TEN" 

i. TEN 

j. flB"C 

k. "FIVE.. SIX" 



7. Combine each of the following into a single INPUT statement. 

a. 10 PRINT"WHRT IS VOUR NAME?" 
20 INPUT fl* 

b. 10 PRINT "VOUR NAME AND AGE?" 
20 INPUT A*. AGE 

8. Modify the mortgage program of the previous section to input with a single INPUT 
statement the amount of the mortgage, its duration, and the interest rate. Test your 
modification. 

9. Telegrams cost $0.20 per word. Write a program to input the number of words and 
display the cost. 

10. Write a program to input three temperatures and compute the average temperature. 

a. The temperatures are to be entered one at a time. 

b. The temperatures are to be entered all on one line. 
The output is to be of the following form 

THE AVERAGE TEMPERATURE IS. . . 

11. Degree days are computed by subtracting the day's average temperature from 65. 
(The average temperature must be less or equal to 65 since negative degree days have 
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no meaning.) Modify the program of the previous problem to include a display of the 
day's degree days. 

12. Write a program that upon execution yields the following output. 

HELLO 

HI ! WHRT IS VOUR NAME? 
? you enter your name here 
HELLO followed by your name 
MV NAME IS NEUTER COMPUTER 

13. Write a program to input from the keyboard a name, address, city, state, and zip 
code. Then output these data in the form of an address label. For example, 

RON DRV IS 
382 ORHNQE ST 
BOSTON.. Mfl 01230 

Use INPUT for data entry. Be sure to type in NEW before entering the program. If 
the total number of characters in your address label exceeds 50, type NEW and 
ENTER, followed by CLEAR 200 and ENTER. 

14. Write a program to produce the following dialog: 

PLEASE ANSNER THE FOLLOWING QUESTION 
WHAT DO VOU PREFER: BOVS OR GIRLS? 
? enter your choice here . . . 
HEV. I TOO PREFER... THAT'S GREAT! 

15. Write a program to input two numbers from the keyboard. Then output their sum 
and difference on one line, and on the following line their product and ratio. Display 
your results with appropriate descriptive text. 

a. Input the two numbers on two separate lines. 

b. Input the two numbers on the same line. 

16. The pressure that a diver experiences as he dives into the ocean is given by the 
relation 

P=0. 0295*H 

where H is the depth in feet and P the pressure in atmospheres. Write a program to 
input a depth and compute the corresponding pressure with the following format : 

AT A DEPTH OF. . . FEET THE PRESSURE IS. . . ATMOSPHERES 

17. If today's population is P people and the population increases each year by I percent, 
in N years the population will be 

P*(l + I/lOO)^ 

Write a program to input P, I, and N and then output the following: 

TODAV "S POPULATION IS. . . 

AT A GROWTH RATE OF . . . X PER VEAR 

THE POPULATION WILL BE. . . IN. . . VEARS 
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The normal sequence of executing statements in a computer program is by 
increasing line numbers. The statement with the lowest Hne number is exe- 
cuted first, and the statement with the highest line number is executed last. 
Thereafter, execution of the program stops. In this chapter we learn tech- 
niques that allow programs to deviate from this normal sequence of exe- 
cution. This process is called branching and is made possible by transfer 
statements. As a result, considerable versatility is added to computer pro- 
grams since they can proceed through different sequences of instructions 
depending on conditions encountered during execution. For example, if A 
exceeds B we wish to print A, while if B exceeds A we print B, and if A 
equals B we print the values of both A and B. So in addition to transfer 
statements we need to learn about decision-making statements. The computer 
must decide if A is larger than, less than, or equal to B, and execution must 
then branch to the appropriate print statement. Such decision statements 
involve relational operations such as greater than and less than. 



4.1 RELATIONAL AND LOGICAL OPERATIONS 



In addition to the arithmetic operations, BASIC also has relational opera- 
tions that are useful for making comparisons. There are six relational opera- 
tors (same as in Level I) : 

1 . Greater than : > 

2. Less than: < 

3. Equal: = 

4. Greater than or equal: >= or => 

5. Less than or equal: <= or =< 

6. Not equal: < > or >< 

Frequently, rather than determining the value of the larger of two num- 
bers, we may wish to determine whether one number is or is not larger than 
another number. We may want a yes or a no to the question, is the account 
overdrawn or is a grade on an exam passing? The result is a logical value, true 
or false, yes or no. In BASIC, yes corresponds to a -1 and a no to a 0: 
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COMMENTS 

PRINT 4>3: 

-1 Yes, 4 is greater than 3. 

PRINT 3>4 

No, 3 is not greater than 4. 

PRINT 5=5 

-1 Yes, 5 equals 5. 

fi=2 
B=4 

PRINT B>fl 

-1 Yes, B is greater than A. 

PRINT 5*fi>B 5* A = 10. 

-1 Yes, 10 is greater than 4. 

PRINT 5*'::fl>B> A is not greater than B. 

£• 5 times is zero. 

PRINT 1+B>fl The sum of 1 and B is greater than 

~i- A. The addition is performed first 

and then the comparison is made. 



REMEMBER: A true statement corresponds to a -1 
A false statement corresponds to a 0. 



Several expressions containing relational operations can be combined 
using logical operations. There are three logical operators: AND, OR, NOT. 



COMMENTS 

PRINT '3>2> AND <6>-l> Both expressions are true; the AND 

-1 yields a true, -1. 

PRINT 3>2 AND <5>l£i::' Both expressions are not true; the 

AND yields a false, 0. 

PRINT 3>2 OR 6>-l Both expressions are true; the OR 

-1 yields a true, -1. 

PRINT <3>2> OR ';5>10> Either expression is true; the OR 

-1 yields a true, -1. 

PRINT '::3>20> OR <5>10> Neither expression is true; the OR 

£1 yields a false, 0. 

PRINT NOT <5>3> The expression in ( ) is true; the 

NOT inverts a true to a false. 

PRINT NOT 5<3 The expression is false; the NOT in- 

-i verts the false to a true. 

PRINT NOT <5<3 The expression is missing a right 

?SN ERROR parenthesis. 



Expressions involving logical operators need not be placed in parentheses; 
however, parentheses help make the statements easier to read. 

The logical operators AND, OR, and NOT (in Level I BASIC the AND is 
a *, the OR is a +, and the NOT is not available) do not perform arithmetic; 
they perform comparisons and give a true (-1) or false (0) answer. Table 4.1 
summarizes their use. 

In Table 4.1 reference is made to logical variables A and B. A logical vari- 
able is a variable that is specified by means of a logical operation. 
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TABLE 4.1 Logical operations 



Logical Variables 


AND 


OR 


NOT 


A B 


A AND B 


AOR B 


NOT A 


-1 _i 


-1 


-1 





-1 





-1 





-1 





-1 


-1 











-1 



COMMENTS 

fl=5>2 

PRINT fl A is a logical variable whose value is 

-1 -1. 

B=-l 

PRINT B B is a numerical variable whose 

-1 value is -1. 

Logical operations can only be performed with logical variables, relational 
expressions, or the numbers and -1. Logical variables always have a value 
Oor-1. 

COMMENTS 

fl=5>2 A is -1 ; B is 0. 

B=2>5 A and B are logical variables. 

PRINT fl AND B -1 AND is 0. 

Result as expected. 



REMEMBER: Logical expressions and logical variables can only have values of and 
-1. 



Logical expressions may also be formed with string variables. When string 
variables are compared, the letter A is "less" than a B, which is "less" than a 
C, and so on. 

COMMENTS 

PRINT "VES"'>"NO" The letter Y is "greater" than the 

-1 letter N. 

PRINT "VES"="NO" 

© The two words are unequal. 

PRINT "VES"<"VESS" 

-1 YES is "less" than YESS. 

fl$="ERIC" 
Bt=" MARION" 

PRINT 'Cfl*:>"BOV"> AND 'CB*>"QIRL"J Both expressions in the ( ) are true, 

-1 so the AND yields a -1 . 



REMEMBER: When strings are compared, the letter A is "less" than the letter B, and 
so on. 



49 sec. 4.2 / flowcharts 

TABLE 4.2 Hierarchy of operations* 



4.2 FLOWCHARTS 



1. Exponentiation: XtY (or X[Y) 

2. Negation: -X 

3. Multiplication and division: X*Y and X/Y (left to right) 

4. Addition and subtraction: X+Y and X-Y (left to right) 

5. <, >, =, <=, >=, < > (left to right) 

6. NOT 

7. AND 

8. OR 



^The innermost parentheses are evaluated first, followed by the next level out. On the 
same level, operations are performed according to the above order. 



The rules for hierarchy of operations were introduced earlier. These rules 
need to be extended at this point to include the relational and logical opera- 
tors. Table 4.2 summarizes the order in which operations on the same nest- 
ing level (for example, within the same parentheses) are performed. 



When faced with the assignment of writing a story, a writer generally first 
creates an outhne. Similarly, when faced with a problem to be solved on the 
computer, a programmer must first break down the solution process into 
component steps that can be programmed. It is often convenient to have a 
pictorial way of displaying the steps to be used in the computer program. 
This is called a flowchart. For comphcated problems and complicated com- 
puter programs, a flowchart is a must. Even though for less complicated 
problems a flowchart is not always necessary, it is a good idea to get into 
the habit of flowcharting each and every program. This approach will help 
organize your thoughts and avoid major errors in logic. A clear flowchart is 
then translated into BASIC. The symbols used here for flowcharts are shown 
in Table 4.3. There is no generally accepted set of symbols for flowcharts. 
However, these symbols are frequently used. 

In the last chapter we developed the compound interest program. A 
flowchart for that program is given in Figure 4.1. The hne numbers of the 
program corresponding to each step in the flowchart are shown. The begin- 
ning of the program is indicated by the START box. The input of the inter- 
est rate, initial deposit, and number of years on deposit are contained in 
input boxes. The balance after N years is then computed and is contained in 
a rectangular box, which indicates processing of data. The results are sub- 
sequently displayed. These are contained in output boxes. The end of the 
program is shown by the terminal box STOP. 

A flowchart to input and compare the values of variables A and B is 
shown in Figure 4.2. This flowchart illustrates a two-way decision. The vari- 
ables A and B are first entered and then compared in the decision box. De- 
pending on whether A is or is not greater than B, the appropriate message is 
displayed. If a program was to be written from this flowchart, the path of its 
execution would then depend on how large A is with respect to B. However, 
both paths lead to the same terminal box STOP. 
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TABLE 4.3 Flowchart symbols 



Symbol 



Symbol Name 



Type of Instruction 



Processing box 



Processing of data 



FOR-NEXT loop box Sets limits for counter 
variable 



(ZZ) 



Terminal box 



Starting or stopping 
execution 



Input/output box 



Input or output of 
information 




Decision box 



Decision for conditional 
transfers 




Connector 



Connects flowchart segments 



Subroutine 



Represents a section of the 
program 



Flow lines 



Indicate direction of program 
flow 



The flowchart of Figure 4.2 illustrates a two-way decision. It determines 
whether A is or is not greater than B. If A is not greater than B, it might be 
important to know whether A equals B or whether A is less than B. Figure 
4.3 illustrates this three-way decision, which requires two decision boxes. It 
is an extension of the two-way decision of Figure 4.2. 

Flowcharts may have several correct versions. Similarly, there are many 
ways to write a computer program to perform a specific task. For example, 
the first decision box in the flowchart of Figure 4.3 could contain the ques- 
tion, is A < B? Another possibihty is to have the second decision box test if 
A < B? In each case the subsequent output boxes would display different 
messages, but the task would be accompMshed equally well. 



C^^Z) 



Program Line Numbers 



DISPLAY 

ENTER THE INTEREST RATE 

FOR EXAMPLE 0.07 



INPUT 
R 



DISPLAY 

ENTER INITIAL DEPOSIT 

AND NO. OF YEARS SEP. BY A 

COMMA 



(15) 



(20) 



(25) 



INPUT 
D,N 



^ 



COMPUTE BALANCE BAL 



7 



^ 



DISPLAY 
BALANCE AFTER N YEARS IS B 



X 



7 



DISPLAY 
THE TOTAL INTEREST PAID IS B-D 



C STOP 


) 


shart of the compou 


f START J 


* 


\ INPUT / 



(30) 



(35) 



(40) 



(45) 



(50) 




DISPLAY 

'A IS NOT GREATER 

THAN B" 



DISPLAY 

"A IS GREATER 

THAN B" 



C3i°0 



FIGURE 4.2 Flowchart illustrating a two-way decision. 
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EXERCISES 5 



c 


START 


1 


^^^ 


v 


NPUTA,B / 




FIGURE 4.3 Flowchart illustrating a three-way decision. 



Before executing the instructions, fill in the anticipated display column and then check 
against the computer result. When you make a mistake, jot down a short explanation of 
the mistake. 



Instruction 

20 PRINT 20 
10 PRINT 10 
RUN 



Anticipated Display 



Display 



b. 

c. 



PRINT 
PRINT 

d. PRINT 

e. fl=10 
B=30 
PRINT 

f. PRINT 

g. PRINT 
h. PRINT 

PRINT 
PRINT 
PRINT 
PRINT 



1. 

J- 

k. 
1. 






*2 



R-3:*B 
'%3I'''4!'' OR '•] 
':;3::>4::' AND 
NOT <3.:>4> 
-1 flNC:' -1 
NOT 5 
NOT NOT 
<-l>i::' AND 



';:5:>1> 



:-2<i0> OR ';-i<i0> 



m. PRINT 



-i>l> fiND '::'.:-2<10> OR <~1<10>> 
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n. PRINT "JflCK" RND "JILL' 

o. PRINT "JflCK" = "JILL" 

p. PRINT "JflCK" > "JILL" 

q. PRINT "Z":>" " 

r. PRINT "flCE"<"flCE " 

S. PRINT "ZVIH":>"ZVIG" 

t. PRINT ".. "<". " 



2. Draw a flowchart for a program to input two numbers and output their sum. 

3. Draw a flowchart for a program to input two numbers and output them in ascending 
order. 

4. Draw a flowchart for a program to input three numbers and output them in ascending 
order. 

5. Draw a flowchart for a program to input three names and output them in alphabetic 
order. 

6. Draw a flowchart for a program to input two pairs of numbers, A, B and C, D. Deter- 
mine which of the following messages is appropriate; then output that message. We 
exclude the possibility of A = B or C = D. 

a. A > B and C > D 

b. A > BandC < D 

c. A < B and C > D 

d. A < B and C < D 

7. Draw a flowchart and write the program to input six numbers with a single input state- 
ment, and then output two numbers per line. 



4.3 TRANSFER STATEMENTS 



Normally, execution of programs is sequential, starting with the first state- 
ment in the program and ending with the last. Transfer statements make it 
possible to deviate from this normal sequence. There are conditional and 
unconditional transfer statements. 

An unconditional transfer causes a change in the order of execution. The 
instruction 



10 GO TO 



will cause transfer of execution from Hne 10 directly to line 35, skipping 
over all intermediate instructions. Other examples of acceptable GO TO 
statements are 

COMMENTS 

45 GOTO 75 From line 45 transfer directly to 

line 75. 

95 GOTO 15 From line 95 transfer back to line 

15. The space between the GO 
and TO is optional. 

Commonly the GOTO statement is used without a space. 
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COMMENTS 
10 R=l A sample program to illustrate the 

15 B=10 GOTO. 

20 GOTO 40 

30 PRINT "LINE 30 fl=".i fl 
40 PRINT "LINE 40 B=".; B 
50 END 

RUN Request execution. 

LINE 40 B=10 Line 30 was skipped over. 

Note that line 30 will always be skipped over. It is unreachable. 

Another use of the GOTO transfer is to cause execution to begin at 
a specified line number. Recall the RUN statement causes execution to start 
at the first Hne of the program. The RUN also sets all numerical variables 
equal to zero. The GOTO lets you pass values assigned to variables in the 
immediate mode to variables within a program. We illustrate this feature 
with the above program. 



B=100 

GOTO 40 

LINE 40 B=100 

RUN 

LINE 40 B=10 

GOTO 25 
?UL ERROR 



COMMENTS 

Specify B = 100. 

Start execution at line 40. 

Result of execution. B is now 100. 

Request execution. 
B is now again 10. 

Start execution at line 25. 
Undefined Line error; there is no 
line 25. 



REMEMBER: The line number in the GOTO statement must be an existing line num- 
ber in the program. It must be a number and cannot be a variable. 



Transfer statements consisting of expressions provide considerably more 
flexibility. They are called conditional transfers. The order of execution is 
controlled by conditions encountered within the expression of the statement. 
These transfer statements use the words IF-THEN-ELSE. The following ex- 
amples demonstrate the IF-THEN-ELSE conditional transfers. The same 
examples are also illustrated along with corresponding flowcharts in Figure 
4.4. 



10 

11 IF :K>0 then 15 

12 

15 

20 

23 IF fi>B PRINT "R IS LARGER THAN B' 

iil5 

30 

31 IF fl>B AND OD THEN 38 

38 



COMMENTS 



If X is positive, transfer to line 15; 
otherwise continue on line 12. 



If A exceeds B, print message; other- 
wise continue on line 25 without 
printing. 



If A exceeds B and C exceeds D, 
transfer to line 38; otherwise con- 
tinue on line 32. 



10 

11 IF X>0 THEN 1= 

12 

15 




citl 

23 IF R>B PRINT "R IS LARGER THRN B" 




PRINT 
"A IS LARGER THAN 



i-0 



31 IF R:>B RND OD then 38 



A > B? 


V NO 






y 






YEsT 


VNO 








/ 








LINE 32 








1 



40 

42 IF QO0 RND G>=80 PRINT "GRRC'E B' 
45 



50 IF R*="VE^ 



THEN 55 ELSE ENC 

^AS 





PRINT 
"GRADE E 



60 

62 IF RC0 THEN f\=-h 
65 B=RT 5 



LINE 60 


YES 










A=-A 


<r A < 0? y 






1 








B=At0.5 





FIGURE 4.4 Flowcharts illustrating IF-THEN-ELSE conditional transfer statements. 
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40 . . . 
42 IF 
45 . . . 



QO0 RND G>=80 PRINT "GRADE B' 



Only if G is in the 80's, print it as 
aB. 



50 IF fl*="VES" THEN 55 ELSE END 



If A$ is YES, transfer to line 55; 
otherwise end execution. 



b0 

62 IF fl<:0 THEN fl=-R 
65 B=flC . 5 



If A is negative, respecify it and 
take its square root; otherwise 
take the square root directly. 
Bracket is exponentiation. 



Example: Find the Largest Among Three Numbers 

We input three numbers and by means of several decisions find the largest. The flowchart 
for this process is shown in Figure 4.5. It requires three IF-THEN statements to pinpoint 
the largest number. The line numbers of the corresponding program are shown in the 
flowchart. 



10 REN FIND THE LARGEST NUMBER 

20 PRINT "ENTER 3 UNEQUAL NUMBERS" 

30 INPUT A.. B.. C 

40 IF A:>B THEN 70 

50 IF B:>C: THEN PRINT "B IS LARGEST= 

60 PRINT "C IS LARGEST=".: C: END 

70 IF OA THEN 60 

80 PRINT "A IS LARQEST=".:A 

90 END 



RUN 

ENTER 3 UNEQUAL NUMBERS 

C IS LARGEST = 3 

RUN 

ENTER 3 UNEQUAL NUMBERS 

A IS LARGEST=-± 



B: GOTO 90 



COMMENTS 
REMinder. 



Two statements are chained. 
The colon chains them. 



A second END statement. 

Request execution. 

The three numbers are entered. 

Request another execution. 

Type in three numbers and press 

ENTER. 
The minus sign occupies the blank. 



The first decision compares A to B in line 40. If A is larger than B, we transfer to 
line 70 and compare A to C. If A is also larger than C, we transfer to line 80 where we 
print the message that A is the largest along with the value of A. Execution is subse- 
quently terminated in line 90. 

On the other hand, if A is not larger than B, execution transfers from line 40 to line 
50. We then already know that B exceeds A, and now compare B to C. If at tliis point B is 
larger than C, then B is indeed the largest and the appropriate message is displayed in Une 
50. Execution is then terminated through the unconditional GOTO 90. Finally, if in line 
60 B is not larger than C, then C must be the largest, since we already established that 
B > A. The message "C IS LARGEST" along with its value is displayed in line 60, with 
execution terminated thereafter. 

Aside from illustrating the IF-THEN statement, we introduced two new concepts 
with the above program: statement chaining, resulting in multiple statement lines. This is 
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INPUT 
(20) - (30) \"3 UNEQUAL NUMBERS" 
A,B,C 




DISPLAY / 

"A IS LARGEST"; A/ <80) 




DISPLAY 
B IS LARGEST"; B, 






(90)1 STOP 



^ 



FIGURE 4.5 Find the largest among three numbers. 

a useful way of programming since it saves memory space in the computer. You can chain 
as many BASIC statements as you wish in one line. Chained statements must be separated 
by colons, and the total number of characters cannot exceed 255. 

We also notice that more than one END statement appears in the program. There is 
an END statement chained in line 60 and an END in line 90. The GOTO 90 in line 50 
could also be replaced by an END in order to save the transfer to Hne 90 from line 50. 



REMEMBER: Multiple statement lines save memory space but may make it more dif- 
ficult to read the program. 



The IF-THEN-ELSE allows for a two-way decision. Using several IF- 
THEN statements allows for multiple decisions. 

ON expression GOTO 1st line number, 2nd line number, . . . 

is a multiway branching statement that causes execution of the program to 
transfer to the first line number if the value of the expression is 1 . If the 
value of the expression is 2, execution transfers to the second line number, 
and so on. For example. 



ON Z GOTO Ski.' 58.. 49 

will transfer execution to line 30 if Z = 1, to line 50 if Z = 2, and to Hne 
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40 if Z = 3 . If Z is or larger than 3 , control transfers to the next line in the 
program after the ON-GOTO statement. If Z is not an integer, for example, 
3.5 only the integer portion is considered, in this case 3, and transfer is made 
to the appropriate line number, in this case line 40. If Z is negative, an error 
occurs (FC ERROR). This information is illustrated in the execution of the 
following program. 

10 ON Z GO TO 20.. 50.. 40 

3:0 PRINT "TRRNSFER TO LINE K© NITH Z=";Z:END 

40 PRINT "TRRNSFER TO LINE 4© WITH Z=".iZ:END 

50 PRINT "TRRNSFER TO LINE 50 NITH Z=".;Z:END 



Z=l 

GOTO 10 

TRANSFER TO LINE 3:© WITH Z=l 



COMMENTS 

Specify Z. 

Execute program from line 10. 

Transferred to first line no. 



il — 4C 

GOTO 10 

TRANSFER TO LINE 5© WITH Z=2 



Transferred to second line no. 



GOTO 10 

TRANSFER TO LINE 4© WITH Z=:< 



Transferred to third line no. 



iL—C 

GOTO 10 

TRRNSFER TO LINE 3:© WITH Z=7 

Z==0 

GOTO 10 

TRRNSFER TO LINE 3:© WITH Z=0 



Transferred to first line no., since Z 
exceeds 3. 

Transferred to first line no., since Z 
is zero. 



Z=l, 5 

GOTO 10 

TRRNSFER TO LINE 3© WITH Z=l. 5 



Z is not an integer. 

Integer portion of Z is 1, so trans- 
ferred to first line no. 



GOTO 10 

?FC ERROR IN 1© 



Error, since Z is negative. 



C-J> 



Example: Producing Variable Displays 



Write a program to input a person's sex (SEX) (male = 1, female = 3) and his/her age 
(AGE). Have the computer analyze these data to determine whether the person is or is 
not a senior citizen (> = 65 years old). 



10 INPUT "ENTER PERSON'S SEX <M=1. F=; 

20 IF SEXOl AND SEX03 THEN 1© 

:<© IF AGE>=65 THEN E=SEX : GOTO 5© 

40 E=SEX+1 

5© ON E GOTO 60. 78. 8©. 9© 

60 PRINT "MALE SENIOR CITIZEN": END 

7© PRINT "VOUNQ MALE" .END 

80 PRINT "FEMALE SENIOR CITIZEN": END 

9© PRINT "VOUNG FEMALE": END 



> AND AGE".: SEX. AGE 
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This program has some interesting logic, line 10 is as usual. Line 20 is a data validity 
check. If the person's sex is neither 1 nor 3, execution returns to line 10 where the data 
need to be entered again. In data-processing applications it is very important that the 
input be checked. The results are only as good as the input data. A famous saying sums it 
up best: Garbage In Garbage Out (GIGO). 

In line 30 of the program, E is equal to SEX if AGE > = 65. Thus E = 1 for a male 
and E = 3 for a female senior citizen. If the person's age is less than 65, execution trans- 
fers to line 40, where E=SEX+1, that is, E = 2 for males and E = 4 for females who are 
not senior citizens. So at this point E is either 1 , 2, 3, or 4 depending on the person's sex 
and age. In line 50 we take advantage of this fact and transfer depending on the value of 
E to line 60, 70, 80, or 90, where the appropriate display is produced. 



4.4 ON ERROR GO TO 



The data validity check discussed in the previous section is a way of guarding 
against bad data. Unless detected upon entry, the data w^ould go unnoticed 
and would be used to generate meaningless results. There are other circum- 
stances where a program seems to be running well, free of syntax and logic 
errors. Suddenly, after having been used successfully for several runs, an error 
message occurs and execution is interrupted. For example, the square root 
of a variable may be computed somewhere within a very long program. If the 
value of the variable depends on numerous other prior calculations, then it 
is certainly possible for the variable to be negative on occasion. This results 
in an error. Another possiblity is that a division by zero may occur due to 
some unforeseen circumstances. Such errors may turn out costly, since they 
interrupt the execution. After the proper corrections have been made, the 
entire run needs to be repeated. 

The ON ERROR GOTO statement sets up an error-trapping routine, 
which in the event of an error allows the program to continue without a 
break in execution. The ON ERROR GOTO statement must be placed in 
the program prior to the occurrence of the error that it is supposed to trap. 

10 ON ERROR GOTO 88 

20 

30 

40 V=V2-V1 : X=X2-X1 

50 S=V/X 

60 PRINT "THE SLOPE IS"; S 

65 

70 ON ERROR GOTO 8 

75 

80 PRINT "WARNING DIVISION BV ZERO.: USED lE-06 INSTEAD OF ZERO" 
85 K=lE-06 
90 RESUME 

The ON ERROR GOTO terminates the error-trapping process. It dis- 
ables the ON ERROR GOTO 80 statement of line 10. Consequently, any 
errors occurring after line 70 will cause a break in the execution without 
transfer to the error-trapping routine of lines 80 to 90. 

The RESUME statement located at the end of the error routine transfers 
execution back to the statement in which the error occurred, in this case line 
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50. The ON ERROR GOTO statement with its error routine is generally 
designed to guard against one specific type of error. However, it will trap all 
errors, even those it was not designed to trap. The RESUME statement can 
take on several forms : 

COMMENTS 

RESUME Resume at line in which error 

occurred. 
RESUME Resume at line in which error 

occurred. 
RESUME 100 Resume at line 100. 

RESUME NEXT Resume at line following statement 

in which error occurred. 



REMEMBER: In the event of an error, the ON ERROR GOTO -RESUME prevents a 
break in execution. 



ERL is another useful error routine function. It returns the line number 
at which an error occurred. So if an error occurs at line 20, then ERL assumes 
the value 20. ERL equals as long as no error has occurred since the com- 
puter has been turned on. In the immediate mode, ERL equals 65535 when 
an error occurs. 



PRINT ERL 



S=l/fl 
?/0 ERROR 
PRINT ERL 
655K5 

10 fl+B=C 
PRINT ERL 

65535 
RUN 

?SN ERROR IN 10 
PRINT ERL 

10 



COMMENTS 

Computer has just been turned on. 
ERL equals zero. 
Division by zero. 

Once an error is made in the imme- 
diate mode, ERL equals 65535. 

illegal statement. 

ERL is 65535 before execution. 
Request execution. 
SyNtax error in line 10. 

ERL is now 10. Error occurred in 
line 10. 



Example: Data Validity Checks 



The following portion of a program illustrates the steps required to trap errors made dur- 
ing data entry. 



100 CLEfiR 12 

110 ON ERROR GOTO 20© 

120 INPUT " CUSTOMER'S NAME"; N$ 

1K0 INPUT "CUSTOMER'S NUMBER"; fi^J 

140 PRINT "INPUT DflTfl ARE OK": END 

200 IF ERL=O0 THEN 230 

210 PRINT "NAME MUST BE LESS THAN 13 CHARACTERS" 

220 RESUME 120 

220 PRINT "CUSTOMER'S ID NUMBER MUST BE LESS THAN 32768" 

240 RESUME 13© 



61 sec. 4.4 I ON ERROR GO TO 



In line 100 we introduce the CLEAR n command. Like CLEAR, it resets all numeric 
variables to zero and all string variables to null. In addition CLEAR n reserves space for 
string variables n characters in length, n may be a number, a variable, or an expression. 
Once line 100 is executed, the string variable N$, customer's name, can be up to 12 char- 
acters long. If a name longer than 12 characters is entered in line 120, transfer is made to 
the error-trapping routine of lines 200 to 240. In Une 130 provisions are made for enter- 
ing a customer number as an integer. Recall, integer variables can only assume values in 
the range -32768 to +32767 inclusive. Therefore, if A% is larger than 32767 execution 
will transfer to the error-trapping routine. 

The error-trapping routine, lines 200 to 240, displays the appropriate message 
depending on where the error was made. Variable ERL is either 120 or 130, correspond- 
ing to errors made in lines 120 or 130, respectively. During execution the error-trapping 
routine remains unnoticed as long as the data entered conform. In this example the name 
must be less than 13 characters and the customer's number must be less than 32768. 
However, when an illegal name is entered, the error routine forces the operator to reenter 
a proper name. Execution cannot proceed until a proper name has been entered. The 
same is true for the customer number. The operator is given the opportunity to correct 
the error made on data entry without a break in execution. 

We now execute the program and observe the error-trapping routine. 



RUN 

CUSTONER ■■ S NAME? ERIC RCE HflROLD 

NAME MUST BE LESS THAN 13 CHARACTERS 

CUSTOMER -S NAME? ERIC HAROLD 

CUSTOMER'S NUMBER? 42345 

CUSTOMER -S ID NUMBER MUST BE LESS THAN 32768 

CUSTOMER "S NUMBER? 12345 

INPUT DATA ARE OK 

The first customer's name we entered, ERIC ACE HAROLD, was too long. The correct 
name ERIC HAROLD was subsequently accepted and the customer's ID number re- 
quested. The number 42345 exceeded 32767 and was therefore rejected. Once the proper 
number, 1234.5, was entered, the input data were recognized as OK. 



REMEMBER: A string variable can store up to 255 characters only if enough storage 
space has been CLEARed. 



Example: Change for a Dollar Bill 



Suppose a one dollar bill is tendered as payment for a sale of less than $1.00. Output the 
change from the sale, assuming that coin collectors have hoarded all the 50^ coins. A 
flowchart is shown in Figure 4.6. 

The approach taken is to compare the amount of change tirst with 25. As long as the 
change C exceeds 25, the counter Q is incremented to reflect the number of quarters 
included in the change. When C is less than 25, it is compared with 10 to check for dimes. 
Subsequently, C is checked for nickels and pennies. The variables S, C, Q, D, N, and P 
represent, respectively, the amount of the sale, the change, the number of quarters in the 
change, and the number of dimes, nickels, and pennies. 



C START J 

t 

\ SALE S / 



C= 100-S 



Q= D = N = P = 




Program Line Numbers 

(10) 
(15) 
(20) 

(25) 
(30)-(35) 



^ C<5 ^ 


^ 


NOj 


^ Hi 


N = N + 1 
C = C-5 






' 


' 






P = C 





Y DISPLAY 7 

\ Q,D,N,P / 



(IE^lD 



(45) 



(50)-(55) 



(65) 



(70)-(75) 



(85) 



(90) 



FIGURE 4.6 ChangeofadoUarbUL 
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EXERCISES 6 



10 INPUT "flMOUNT OF THE SALE IN CENTS"; S 

15 c=iei0-s 

20 Q=0: D=0; N=0 : P=0 

25 IF CC25 THEN 45 

5-0 Q=Q-H 

35 C=C-25 

40 GOTO 25 

45 IF CC10 THEN 65 

50 D=D+1 

55 C=C-10 

60 GOTO 45 

65 IF C<5 GOTO 85 

70 N=N+1 

75 C=C-5 

80 GOTO 65 

85 P=C 

90 PRINT Q.: "QURRTERS ".: D; "DIMES ".i Nj "NICKELS "; P; "PENNIES" 

RUN 

flMOUNT OF THE SALE IN CENTS? 12 
3 QUARTERS 1 DIMES NICKELS 1 PENNIES 

In this example we assumed that the amount tendered was 100^. Can you generaUze the 
program for any amount up to $100? 

A variation of the IF-THEN statement is demonstrated in line 65. Instead of the 
IF-THEN, it is permissible to use IF-GOTO or IF-THEN GOTO. 



Before executing the instructions, fill in the anticipated display column and then check 
against the computer result. When you make a mistake, jot down a short explanation of 
the mistake. 

1. Instruction Anticipated Display Display 

A=10 

B=20 

C=-5 

a. IF ACB PRINT A 

b. IF a:>b print B 

c. IF A>C PRINT "C" 

d. IF B>A AND A:>C PRINT A*B 

e. IF A>B OR B>C PRINT "VESS" 

f. IF A>B PRINT A ELSE PRINT B 

g. IF A<B PRINT B; PRINT A 

h. IF B>D PRINT "SURPRISE" 

i. IF b:>a if a:>c print "unexpected" 



j. PRINT "THE ANSWER IS: PRINT A 
2. Enter the following program: 



20 IF A«::>B* OR A*:>C* PRINT A* : END 

30 IF B*>C:* PRINT B* ELSE PRINT C* : END 
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Instruction Anticipated Display Display 

a. fl*="JOE" 

B*="Jir'1" ^ 

C*=".JOEV" . 

GOTO 20 

b. R*="JILL" 

GOTO 20 

c. B*="MfiRION" 

C*="ERIC" ^ 

G0TO 20 

d.fi*="RNN" _^ 

GOTO 261 



3. Write a single statement to 

a. Set A equal to 5, B to 6, and C to 7. 

b. Transfer to line 50 if A > B. 

c. Display C DOES NOT EQUAL D if C is unequal to D. 

d. Transfer to line 100 if Y is less than Z and W is larger than V. 

e. Stop execution if Z is 10. 

f. Branch to line 1 if Z = 1 , to line 2 if Z = 2, to line 3 if Z = 3, to line 2 if Z = 4, 
to line 1 if Z = 5, and to line 4 if Z = 6. 

4. Write short programs to perform the following: 

a. Input two numbers and print their sum only if the sum is positive. 

b. Input two numbers and print whether their sum or product is greater. 

c. Display the message, WHAT IS THE CAPITAL OF FRANCE? If the person 
responds PARIS, have the computer display the message YOU ARE OK. For all 
other (incorrect) responses, display the message, NOPE, SEE YOU IN PARIS. 

d. Display the message, WHAT IS YOUR AGE? For ages 12 or less, have the com- 
puter respond YOU ARE A CHILD; for ages 13 through 19 respond, YOU ARE 
A TEENAGER; for ages 20 or above, respond YOU'RE AN ADULT. 

5. Draw a flowchart and write a program to input three unequal numbers and display 
them in ascending order. 

6. Draw a flowchart and write a program to input four numbers and display the largest. 
Try to write the program with the minimum number of steps. 

7. Draw a flowchart and write the program to input a number and output its absblute 
value; that is, output the number as a positive number. 

8. Draw a flowchart and write a program to compute and display a salesman's gross pay. 
The pay is based on sales and is computed according to the following formula: for 
sales up to and including $1000, he is paid a flat $100; for sales from $1000 up to 
and including $2000, he is paid 15%; above $2000, he is paid a bonus of $250 and 
7% of sales. The sales are input to the program. 

9. Draw a flowchart and write a program to update the balance of your checking ac- 
count. Input the amount of the check or the amount of the deposit and output the 
balance. If the balance falls below $100, charge the account a $2 service charge. If 
the balance drops below zero, display an appropriate message and charge the account 
a $5 service charge. 

10. Draw a flowchart and write a program to input a person's age and output the age 
along with the message: THIS PERSON IS A MINOR (<18), or THIS PERSON IS A 
SENIOR CITIZEN (>=65), or THIS PERSON IS NEITHER A MINOR NOR A 
SENIOR CITIZEN. Include a data validity check to be sure the person's age is not 
negative or greater than 120. 

IL Draw a flowchart and write a program to input the three coefficients A, B, C of the 
quadratic equation AX^ + BX + C = 0. Depending on whether B^ - 4AC is posi- 
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tive, negative, or zero, output respectively the messages: THE ROOTS ARE REAL, 
THE ROOTS ARE IMAGINARY, THE ROOTS ARE REPEATED. 



12. One root of the quadratic equation AX^ + BX + C = is (-B + VB^ 4AC)/(2A). 
Write a program to input A, B, and C, and then compute and display the root. Use an 
ON ERROR GOTO statement to treat the case in which the square root of a nega- 
tive number is taken, that is, when B*B - 4*A*C < 0. If B*B - 4*A*C is positive 
or zero, display the message "REAL ROOT" along with the root itself. Otherwise 
display the message "IMAGINARY ROOT". Be sure to first draw a flowchart. Test 
your program with A=l,B = 3,C = 2,and then again with A=1,B = 2,C = 3. 

13. Write a program to input the number of words in a telegram and display the cost. 
Assume the first 15 words cost a flat $3.50, with extra words $0.20 each. 

14. Write a program to input a number and display a message declaring the number as 
odd or even. Does your program work for positive as well as negative numbers? 



chapter^ 



olofD 



ping 



5.1 LOOP STRUCTURE 



A major advantage of computers lies in tlieir ability to do repetitive tasks 
rapidly and accurately. The steps that are repeated within a program form a 
loop. In general, a loop consists of four parts in which we initialize, process, 
increment, and test. 

In the initialization part we assign starting values to variables. For exam- 
ple, we may initiaHze a variable that represents a counter to 1 . In the process 
section the calculations are performed. The counter is then incremented, and 
a test is performed to check if the loop should be continued or terminated. 
The order in which the four parts of a loop appear is interchangeable. Two 
possible loop structures are shown in Figure 5.1. 

It is important to note that the variables are only initiahzed once. While 
looping, the process, increment, and test parts are repeated over and over 
until the test condition is satisfied, for example, when the counter has 
reached a preassigned limit. It is also possible to have loops that omit some 
of these four parts. For example, the increment part may not be necessary 
if no counter is used. Instead, a computed variable may be checked to termi- 
nate the loop. 



5.2 IF-THEN LOOPS 



The test part of the loop can be performed with the IF-THEN statement. If 
the counter has reached its limit, or if a certain condition has been met, the 
IF-THEN transfers execution out of the loop. 

Let us find the sum of all the integers from 1 to 100. 



10 SUM=0: K0UNT=1 

20 SUri=SUr'1+K0UNT 

20 K0UNT=K0UNT+1 

40 IF KOUNT<=100 THEN 20 



50 PRINT SUM: END 



RUN 
5050 



COMMENTS 

Initialize sum and counter. 

Process. 

Increment the counter. 

Test. As long as the counter is less 

or equal to 100 we continue to 

loop. 



The sum of integers 1 to 100 is 
5050. 



66 



67 



sec. 5.2 / IF-THEN loops 



INITIALIZE 



INITIALIZE 



PROCESS 



INCREMENT 



YES /TEST 

CONTINUE 
LOOP? 

NO 




PROCESS 



INCREMENT 



FIGURE 5.1 Two loop structures showing the four parts of a loop. 

The next program demonstrates a loop that is terminated when a calcu- 
lated variable reaches a certain value and not when the counter reaches its 
limit. Let us find N such that 2^ just exceeds 1000. 







COMMENTS 


10 N=0 




Initialize. 


20 N=N+1 




Increment. 


30 X=2CN 




Process. 


40 IF X<=1000 THEN 20 




Test. 


50 PRINT "N=".iNj ". 2CN=' 


'.iX:END 




RUN 






N= 10. 2CN= 1024 







We recognize 2t 10 or 1024 to be IK; a 4K memory thus corresponds to 
4 X 1024 = 4096 bytes and not 4000 bytes as is commonly assumed. In 
the above, lines 30 and 40 can be combined to shorten the program (30 IF 
2[N<=1000 THEN 20). The sequence of the four parts of the loop differs 
from the illustrations in Figure 5.1. 

A common mistake made by inexperienced programmers is to include 
the initiaHzation statement in the loop. Let us make that mistake by editing 
line 40 to branch back to line 10 instead of to line 20. 

40 IF XO1000 THEN 10 
RUN 

What happened? The computer is in a coma! No result!? We press BREAK to 
stop the execution and insert hne 35. 

35 PRINT N 
RUN 



Now the execution shows only a column of 1 's. Press SHIFT and @ simul- 
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taneously to halt execution. The display is frozen. As you can see from the 
display, the program is in an infinite loop. To resume execution, press any 
key. Since we branch back to line 10, N is reset to zero each time and never 
increases to a point where 2tN exceeds 1000. Since 2tl is 2, X always 
equals 2. To get out of this infinite loop, we press the BREAK key, which 
terminates the execution and returns the cursor onto the screen. We also 
delete line 35, which we inserted for illustrative purposes. 





COMMENTS 


BREAK IN 30 


Response of computer to BREAK 




command. 


RERDV 


Cursor returned. 


35 


Delete line 35. 


PRINT X 





2 At lineSO, N = 1;2tN = 2t1 = 2. 

REMEMBER: Do not initialize the counter within the loop. 

On occasion it may be desirable to have an infinite loop. For continuous 
loop programs such as games, it is convenient to place the RUN statement 
within the program. If RUN is the last statement of the program, then the 
entire program will be executed over and over. The RUN will cause repeated 
executions and will also set all the variables to zero and null each time an 
execution starts over. 









COMMENTS 


10 PRINT 
20 RUN 


"FORE'-, 


,-'ER" 


RUN used within t 


RUN 

FOREVER 
FOREVER 
FOREVER 






Request execution 
First execution. 
Second execution. 

Infinite loop. 



etc. 



Press the BREAK key to escape from the infinite loop; to continue exe- 
cution, type CONT and press ENTER. 



Example: The Rule of 72 



A deposit left in the bank to earn interest will eventually double in value. The rule of 72 
states that the number of years needed for the money to double is approximately equal 
to 72 divided by the annual interest rate. So, for example, if the interest rate is 4% the 
time to double will be 18 years (72/4). A flowchart for the program to verify this rule is 
shown in Figure 5.2. The program follows it closely with corresponding Une rmmbers 
shown in the flowchart. 



±0 REM THE RULE OF 72 

20 PRINT "INITIRL DEPOSIT AND INTEREST RRTE" 

25 INPUT DEP.. IN 
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C START J 



V 



INPUT 
EPOSIT, INTEREST 

i 



"7 





BAL = DEPOSIT 
COUNTER =0 






^ 










' 




BAL = BAL + BAL * INTEREST/100 




, 




, 


COUNTER = COUNTER + 1 


YES 


^^^ 


BAL < 2 * 


DEPOSIT . 


> 



Program Line Numbers 

(20)-(25) 
(40)-(60) 

(70) 
(80) 

(85) 



NO 



DISPLAY 

TIME TO DOUBLE 

FINAL BALANCE 



CZ^D 



FIGURE 5.2 The rule of 72. 



(90)-(95) 



(99) 



38 REM EQUhTE THE INITIRL BRLRNCE TO THE DEPOSIT 

40 EflL=DEP 

50 REM INITIRLIZE R COUNTER 

£.0 H = 

65 REM COMPUTE R NEW BRLRNCE 

70 BRL=BRL+BRL+ I N/lUS 

75 REM INCREI'IENT THE COUNTER 

80 N=N+1 

85 IF BRL<2*C.'EP THEN 70 

90 PRINT "TIME TO DOUBLE IS".: Nj "VERRS" 

95 PRINT "FINRL BRLRNCE IS ^".iBRL 

99 END 

RUN 

INITIRL DEPOSIT RND INTEREST RRTE? 

? 1000.. 4 

TIME TO DOUBLE IS IS VERRS 
FINRL BRLRNCE IS * 2025. 82 

RUN 

INITIRL DEPOSIT RND INTEREST RRTE? 

? 1000 

'?? b 

TIME TO DOUBLE IS 12 VERRS 

FINRL BRLRNCE IS * 2012. 2 



COMMENTS 

Initialize. 

Initialize. 

Process, 

Increment. 
Test. 



Request execution. 
Input the data. 



Forgot to enter the interest rate. 
So enter interest rate now. 
Rule of 72: 72/6= 12 years. 



70 ch. 5 I looping 



The rule of 72 program can readily be used to determine whether a larger (or smaller) 
initial deposit affects the time to double. Try initial deposits of $500, $1000, and $2000. 
What is your conclusion? The rule of 72 is verified by means of an exact formula in a 
later chapter. 



5.3 FOR-NEXT LOOPS 



The FOR and NEXT statements together provide another way of performing 
loops. The IF-THEN loop required a four-part loop structure: initialize, pro- 
cess, increment, and test. The FOR-NEXT loop only requires the initialize 
and process parts. It is generally simpler to use and consequently preferred 
by many programmers. The general form of the FOR-NEXT loop is as 
follows: 

COMMENTS 

-10 FOR fi=B TO C STEP D STEP D is optional. 

20 The bracket drawn from line 10 to 

line 50 outlines the range of the 
loop. 

-50 NEXT H The A is optional. 

(£■0 

A is a counter variable whose initial value in the loop is B. The NEXT 
statement is the last statement in the loop. Once that Hne is reached, execu- 
tion returns to the beginning of the loop, that is, the FOR statement. The 
counter A is increased by the STEP D. If A is less or equal to C, the upper 
limit of the counter, execution proceeds through the loop. Once line 50 is 
again reached, execution returns to the beginning of the loop; the counter A 
is again incremented by D, and checked if it exceeds the value of C. If A 
does exceed C, the loop has been completed and execution transfers to the 
first line after the NEXT statement, in the above example hne 60. If no 
STEP is used, a STEP of 1 is assumed. In the FOR statement, the initial 
value, final value, and increment can be constants, variables, or expressions. 
When the FOR statement is reached, these values are evaluated and stored in 
memory. Respecifying (changing) these values within the loop will not 
change the range of the loop. However, it is not permissible to change the 
value of the counter within the loop. 

The following examples illustrate the FOR statement: 

STA TEMENT RANGE OF VARIABLE 



1 FOR T = TO 4 



T assumes the values 0, 1 , 2, 3, 4. 



FOR F = b. ± TO 6. 4 bTEP O. 1 F assumes the values 6.1, 6.2, 6.3, 

6.4. 
FOR ^ = 1 TO 10 STEP 2 Z assumes the values 1, 3, 5, 7, 9. 

FOR 1-1 = 10 TO -1 STEP -4 M assumes the values 10, 6, 2, -2. 

FOR P = 5 TO 5. P assumes only the value 5. 

F0RZ=lTo8STEP-l Z assumes only the value 1; the 

spaces are optional in BASIC. 
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We notice that the STEP can be positive, negative, integer, or a fraction. 
In the first example the assumed STEP is 1 . In the second example the STEP 
is a tenth and F is incremented accordingly. In the third example the STEP is 
2, and after Z = 9 is incremented by 2, Z = 11. This is greater than the 
value 10; therefore, the loop ends without Z ever assuming the final value 
10. In the fourth example a negative STEP is demonstrated. Again, the final 
value is not reached since -6 is less than -3. In the fifth example no STEP is 
specified, so STEP 1 is assumed. After P is incremented the first time, its 
value is 6. Since 6 is greater than the final value 3, the loop ends. In the last 
example, Z is after it is incremented for the first time. Since is less than 
1 , the starting value of Z, the loop ends. 

REMEMBER: If no STEP is specified in a FOR-NEXT loop, a STEP of 1 is assumed 
by the computer. 



The following short program prints the numbers 32 through 34, their 
squares, and their cubes: 



-10 FOR M=I<2 TO 34 
20 PRINT \'h M*M.: MC 3 
-30 NEXT 



RUN 

32 1024 

33 1089 

34 115t. 
PRINT M 

35 



5^2768 
39304 



COMMENTS 

STEP 1 is assumed. 

M*M is computed faster than I\/lt2. 

The M is optional in NEXT. 



Upon completion of the loop, the 
counter has the incremented value 
that lust exceeds the final value; 
M = 34 + 1 = 35. 






pl0 FOR K=10 TO 5 STEP 
L20 NEXT K 
30 PRINT K 

RUN 
4 



Once the loop 
counter is 4; K 



is completed the 
= 6-2 = 4. 



Example: Evaluating an Infinite Series 

The infinite series 



1 + 1/2 + 1/3 + 1/4 + • • • + 1/N 

has an infinite number of terms. Since each successive term is smaller than the previous 
term, one expects the sum of the series to add up (converge) to a certain value. Does it? 
Let us investigate the sum of the first 10, 50, and 100 terms, that is, for N = 10, 50, and 
100. 



2ti S=0 
-30 FOR K=l TO N 

40 S=S+1/K 
-50 NEXT K 

60 PRINT "SUri=".i S 



COMMENTS 

Initialize the sum S. 
STEP = 1 assumed. 



END is optional and we omit it. 
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We now execute the program by specifying N and then transferring to Une 20. 

COMMENTS 

N=10 

GOTO 20 

SUf'1= 2.92897 The sum for 10 terms. 

N=50 

GOTO 20 

SUM= 4. 49921 The sum for 50 terms. 

N = 100 

GOTO 20 

SIJM= 5.18718 The sum for 100 terms. 

Indeed this series does not converge; it diverges. Successive terms keep adding on to the 
total sum, making the sum larger and larger. 

In the last example we ran the program for N = 100. The loop consisting of lines 30 
to 50 was executed 100 times as the counter K assumed the values 1 through 100. The 
sum was then displayed in line 60. Suppose we display the value of the counter upon 
completion of the loop. 

COMMENTS 

N=100 

GOTO 20 
SUM= 5. 1S73.S 

PRINT K The loop's counter is incremented 

'^^^^ one final time. 

For a loop ranging from 1 to 20 with a STEP of 2, the counter assumes the values 
1,3, 5... 17, 19. The loop is completed and the counter is incremented one final time. 
The counter is then 21 and execution of the rest of the program follows. 



ply 

1-20 



COMMENTS 

10 FOR K=l TO 20 STEP 2 The loop's upper limit is 20. 

NEXT K The STEP is 2. 

sB PRINT K The last value of K within the loop 

is 19. 
RUN 
21 Upon completion of the loop, K 

equals 19 + 2. 

If the STEP is 3 in the above program then K is 22 (19 + 3) upon completion of the loop. 
REMEMBER: Every FOR-NEXT loop must have a FOR and a NEXT statement. 



FOR-NEXT loops are used frequently and any particular program may contain sev- 
eral such loops. It is possible to branch in and out of loops using conditional or uncon- 
ditional transfer statements. However, such jumps can be made only within a particular 
FOR-NEXT loop or from it to the outside. No jump may be made into a loop. A loop 
may only be "entered" through its FOR statement (first statement of the loop). This 
means that a GOTO statement, an ON-GOTO statement, or an IF-THEN statement that 
is outside a FOR-NEXT loop cannot transfer control to any statement inside the loop. 
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However, a GOTO statement, an ON- GOTO statement, or an IF-THEN statement that is 
inside a FOR-NEXT loop may transfer control anywhere within or anywhere outside the 
loop. The following are examples of legal jumps: 



r-iee FOR K0UNT=1 TO lOO 



150 GOTO 270 



■0 PRINT "INSIDE LOOP" 
275 IF KOUNT>50 THEN 400 



COMMENTS 
Set up a loop. 

Transfer inside loop. 
Transfer inside loop. 



310 IF TESTI^S-O THEN 50© Transfer outside loop. 



•-400 NEXT KOUNT 



560 GOTO 270 



Illegal transfer into loop. A proper 
version of line 560 is 560 GOTO 
100. 



Example: A veraging a Set of Numbers 



Suppose we know how many numbers we wish to average. Let that number be N. We 
must add up all the numbers to be averaged and divide the total by N. We first input N 
and subsequently go through the loop N times to input the numbers to be averaged. In 
the process we also add up the rmmbers to compute their sum. Once the loop is completed 
the average (= SUM/N) is computed and displayed. 



10 REM flVERflGE R SET OF NUMBERS 

20 PRINT "HON MHNV NUMBERS DO VOU WISH TO flVERflGE?' 

30 INPUT N 

40 REM INITIflLIZE THE SUM TO ZERO 

45 SUM=0 

50 FOR K=l TO N 

60 INPUT "ENTER fl NUMBER".; NUMBER 

70 SUM=SUM-i-NUMBER 

80 NEXT K 

95 PRINT "THE AVERAGE OF THE"; N; "NUMBERS IS"; SUM/N 

99 END 



Type in the program and use it to compute your average grade in mathematics to 
date, or the average size of the last 12 checks you wrote. 

Suppose we wish to average a set of numbers and we do not have an exact count of 
how many numbers there are. For example, we wish to determine the average amount of 
a whole pile of checks. We know that the value of a check cannot be a negative number. 
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10 REM flVERRQE fl SET OF NUMBERS 

15 REM THE NUMBER OF NUMBERS IS UNKNOWN 

20 N=0: SUM=0 

30 PRINT "ENTER fl NUMBER IF DONE ENTER -99" 

40 INPUT NUMBER 

50 IF NUMBER = -99 THEN SO 

60 N=N-«-l: SUM=SUM+NUMBER 

70 GOTO 30 

80 PRINT "THE AVERAGE OF".; N; "NUMBERS IS".iSUM/N: END 

RUN 

ENTER A NUMBER IF DONE ENTER -99 

? 87 

ENTER A NUMBER IF DONE ENTER -99 

? 95 

ENTER A NUMBER IF DONE ENTER -99 

? 81 

ENTER A NUMBER IF DONE ENTER -99 

—99 

THE AVERAGE OF 3 NUMBERS IS S7. 6667 

Ttiis version of the averaging program uses an IF-THEN loop. The earUer version 
utihzed a FOR-NEXT loop. In line 50 we check the value of NUMBER. If it equals -99 
then the last data entry has been made. The -99 serves as a flag. Each NUMBER is tested 
in line 50 to check if it equals the flag. If it does, execution transfers out of the loop to 
line 80 and the average is displayed. 






Example: How Fast Can the Computer Add? 

The program we present in this example can be used to determine the time it takes to 
perform an addition or any other operation. We begin by executing a loop that actually 
computes nothing. A stopwatch is used to measure the time to perform the loop 5000 
times. The time interval starts when the ENTER key is pressed after typing RUN and 
ends when the READY appears again. 

10 FOR S=l TO 5000 

20 A=l 
30 NEXT S 

Execute this program several times and compute the average time of execution. The 
average time to perform this loop 5000 times turns out to be about 29 seconds. Now re- 
place line 20 by 

20 A=l+1 

and run the program again several times. In the presence of the new line 20, it takes about 
35 seconds to perform the loop 5000 times. The difference in the two times of execution 
is 6 seconds. Dividing this difference by 5000 yields the time for a single addition, 0.0012 
seconds. Similarly, it is possible to investigate the time of execution for the multiplication 
A = 1*1, or compare the difference in the time it takes to execute PRINT 1 versus ? 1. 
Another interesting question this approach may help resolve is whether A = 2*2 is faster 
or slower than A = 2 t 2. Or how about comparing the execution time of the three-line 
loop (lines 10 to 30) with the execution time of a one-line loop containing the same three 
statements chained together? Can you think of any other operations that you may wish 
to investigate? 
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Example: The Legend of the Wise Old Man 



An old legend has it that a wise man, when offered any reward he desired, requested that 
the squares of a checkerboard be filled with kernels of wheat. One kernel was to be placed 
on the first square, two on the second, four on the third, eight on the fourth, and so on. 
How many kernels of wheat would be required to fill the 64-square checkerboard? 

This problem requires summation of 64 integers. Successive integers are in the ratio 
of 2 : 1 . A flowchart is shown in Figure 5 .3. The program follows it closely. 



COMMENTS 



10 REM THE WISE OLD MRN 
20 SUri=0 

-30 FOR KOUNT=0 TO 63 
40 SUr'1=SUM+2C KOUNT 

-50 ne:«:t 

60 PRINT "TOTfiL NO. OF KERNELS ="; SUM 
70 ENCJ 



Initialize the sum; 

2tO=1;2tl=2; etc. 
NEXTby itself is OK. 



RUN 

TOTAL NO. OF KERNELS = 1. 84468E+19 



Indeed he was a wise man! 





( START J 

\ 


Program Line P 
(20) 
(30) - 

(60) 
(70) 


\lumb 




SUiVl = 






' ' 




1 KOUNT 






0TO63 




- (50) 


. 


. 








SUM = SUIVH- 2 t KOUNT 












\ DISPLAY / 
\ SUM / 




. 




) 




( " 


OP 





FIGURE 5.3 The wise old man. 
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1. What final value will be displayed in each of the following programs: 



a. 10 R=4 : B=2 

20 B=B+fl 

I<0 fl=fi-l 

40 IF R:>1 then 20 

50 PRINT B+15 



10 R=16: B=0 

20 B=B*R 

20 f\=iF\-2 

40 IF R>=0 THEN 20 

50 PRINT B+15 
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Anticipated display 



Actual display 



c. 10 K=K+1 
20 PRINT K 
30 RUN 

Anticipated display 



d. 10 K=K+1 
20 PRINT K 
20 GOTO 10 



Actual display 



Note: Did you remember to type in NEW before entering each program? 

2. How often is the IF-THEN executed in each of the following programs? What value 
will be displayed? 



a. 10 fl=. 5 : B=8 : C=l 
20 C:=C*'::fl+F::' 
30 B=B-l:fl=fi+5 
40 IF B:>0 THEN 20 
50 PRINT C 



b. 10 fl= 5: B=l: C=l 
20 C=C*<fl+7> 
30 B=B+1: R=fi+5 
40 IF B<=8 THEN 2© 
50 PRINT C 



Anticipitated display 



Actual display 



3. Consider the flowchart for the program to sum the integers (whole numbers) from 1 
to 10. The numbers in the circles represent line numbers in the corresponding pro- 
gram. 



( START J 



Program Line Numbers 



S = 



N = 1 



S = S + N 




.YES 


C 


DISPLAY / 
SUM IS";S / 




\ 






STOP 


) 






(50) 



mon 




(20) 




(30) 



© 




(80) 



a. Identify the initialization, incrementation, test, and process parts of the loop. 

b. Write the corresponding program consisting of lines 10 through 80. 

c. Write a shorter version of the same program. 
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d. Generalize the program to sum all the integers from MIN to MAX. Use INPUT to 
enter values for MIN and MAX during execution. 

e. Rewrite the program using a FOR -NEXT loop. 

4. Write short programs to perform the following. Write these programs with an IF- 
THEN loop and then with a FOR-NEXT loop. In each case decide which version 
is the simpler. 

a. Display all the integers from 1 to 20. 

b. Display all the odd integers from 1 to 20. 

c. In increments of 0.5 , display all the numbers between 7 and 14. 

d. Display the fractions V3, V4, Vs, . . . , Vio in decimal form. 

e. Display every third number starting with 10 and going no lower than -10. 

f. Determine and display the product of the first 10 positive even numbers. 

g. Compute and display the product of all the integers from A to B. A and B are 
input data; assume A < B. 

5. Modify the rule of 72 program presented in this chapter to display the balance for 
each year. 

6. Rewrite the rule of 72 program using a FOR-NEXT loop. 

7. Write a program to add the consecutive positive integers and print the last integer 
added when the sum first exceeds 1000. 

8. A baseball player hits the ball so that the horizontal distance from the plate to the 
ball in feet is given by the equation X = SOT, where T is the time in seconds since 
the ball was hit. The height of the ball above the ground is given by the equation 
Y = 4 -r 70T - 16. IT'^. Write a program to produce a three-column table giving 
values of T, X, and Y at V2 -second intervals as long as the ball has not gone over the 
fence (X is less than 3.55 feet). 

9. Write a program that will read 50 scores and then get a count of the number of 
grades in each of the given ranges 1 to 25, 26 to 50, 51 to 75, and 76 to 100. 

10. You purchase a franchise in a newly formed association and are told that your profit 
(in $1000 units) can be projected for the next 8 years by the formula 

P = T^ - 5T2 + lOT - 51 

where P represents profit and T the time in years. At T = 0, the time of the purchase 
of the franchise, P = -5 1 . Your cost of the franchise is therefore $5 1 ,000. A negative 
profit indicates a loss. Write a program to determine: 

a. At the close of which year do you show a profit for the first time? 

b. What is your cumulative total profit, or loss, for the first 8 years? 

11. Write a program to compute the net wages of the employees of a company. You are 
given the gross wages; income tax of 20% if income is $800 or less, 22% if income is 
more than $800; union dues of 1% of total wages; FICA 6% of income equal to or less 
than $900. Do not be concerned with dependents. The company has 8 employees. 

12. Write a program to play the following game: The computer tries to guess a number 
you have in mind from one to 100. First it guesses a number and you tell it if the 
number is too liigh, too low, or correct. On the basis of the information you give, the 
computer guesses again. This continues until the computer guesses right. 

13. Mr. Jones is offered employment by ABC Company, and is afforded the opportunity 
of taking two different methods of payment. He can receive a monthly payment of 
$700 and a $5 raise each month, or he can receive a monthly wage of $700 with a 
yearly raise of $80. Write a program that will determine the monthly wages for the 
next eight years in each case. Determine the cumulative wages after each month, and 
from the information determine which is the better method of payment. 
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14. How many terms of the series 1 + Va + V3 + V4 . . . must be added so that the sum 
will be greater than or equal to 4? 

15. Write a program to input a positive integer P and display P as well as P! (P factorial), 

where P! = 1 X 2 X 3 ... P; for example, 3! = 1 X 2 X 3. 

16. Compute the quantity Q = 4 X (1 - 1/3 + 1/5 - 1/7 + 1/9 ). Input the num- 
ber of desired terms in the series and output Q. Do you recognize the quantity Q? 

17. If the current population is 200,000,000 and the population grows 1.5% per year, 
find the year in which the population will reach 300,000,000. Use INPUT to enter 
the growth rate and the upper limit on the population. 

18. City A has 1000 residents and is agriculturally self-sufficient (i.e., it cultivates enougli 
food to feed itself). In fact, it produces enough food for 100,000 residents. However, 
every 10 years the population doubles and in that time enough food can be produced 
to feed 4000 more people than in the previous 10 years. Output a table of data in the 
following form: 



AFTER YEAR 



POPULATION 



FOOD SUPPLY FOR 




10 



1000 
2000 



100000 
104000 



Have the data stop when the population outgrows the food supply. 

19. Job A pays $12 per day and lasts 30 days. Job B pays $1 for the first day, $2 for the 
second, $3 for the third, and so on. Which job pays more over a period of 30 days? 
Obviously, job A is a better deal for a while. When does job B become a better deal? 

20. Write a program to compute the balance of a Christmas Club account after one year. 
The annual interest rate is 6% compounded monthly. Run the program for monthly 
deposits of $10, $20, and $40. 

21. If a person earns 6% compounded monthly on the minimum balance for the month, 
and he or she withdraws $100 per month from an account that starts at $10,000, 
how long can this go on? 

22. Use a computer to help you solve this problem. Mrs. Freezman lives on a street where 

the house numbers are 1, 2, 3 It is interesting to note that the sum of the house 

numbers less than Mrs. Freezman's house number is equal to the sum of the house 
numbers greater than hers. Her number contains three digits. What is her house num- 
ber and how many houses are there on the street? It can be shown that the desired 
house number X is related to the number of houses on the street N according to the 
relation 



X = -0.5 + Va25 + 0.5N + 0.5N2 



23. An iterative formula for finding the square root of N is given by the formula 

G^ + N 
B = 



2G 



where G is the initial guess for the square root of N and B is a better approximation. 
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Count the number of iterations necessary to get successive computed values to differ 
by no more than IE -6. Use N = 5 and G = 3. (Compute B;then let G be that value 
of B and compute a new B, and so on.) 



5.4 SUBSCRIPTED VARIABLES 



At times it is desirable to have the computer keep a table of values in its 
memory, for example, a list of 12 test scores: 65, 63, 75, 76, 90, 83, 87, 98, 
76, 75, 81 , and 68. The complete set of the quantities is called an array, and 
each individual quantity is called an element of the array. The first element 
of the array is 65, the second element is 63, and the last element is 68. We 
can give the whole list a variable name, for example, the name S. We then 
refer to the first item in the list, 65, by S(l). What is 8(5)? If J = 3, what is 
S(J)? S is a subscripted variable; it has one subscript and is sometimes re- 
ferred to as a one-dimensional array. 

Before we can work with our list in a program, we need to store it in the 
computer's memory. First we must tell the computer to reserve sufficient 
space for storing our array. We use a DIM statement to reserve storage space. 
For example, 

COMMENTS 

10 DIM S<.±2> Array S is of depth 12. 

-20 FOR 1=1 TO 12 S(13) would therefore not be per- 

30 INPUT S<i::' missible. 

40 NEXT I 



Note that in this program the counter of the FOR -NEXT loop is used as the 
subscript. As I takes on the values 1 through 12, the elements of the array S 
are entered. Once this program has been executed, the array is stored and we 
can use its elements; suppose 65 has been entered as the first element and 98 
as the eighth element of array S. 

COMMENTS 

PRINT S<1> Display the first element of S. 

65 

PRINT S<8> Display the eighth element of the 

98 array. 



We sum the elements and display their average: 

COMMENTS 

50 SUM=0 
-52 FOR K=l TO 12 Start of loop; the counter is K. 

54 SUM=SUM+S<K> The counter is used as the subscript. 

56 NEXT K End of loop. 

58 PRINT "flVERflGE IS".i SUM/12 

The following is an example of a DIMension statement 

10 DIM ficilS:.". B'::X>.. C<D+5> 
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The quantity in ( ) may be a constant, a variable, or an expression. In this 
case, X and D must be specified prior to line 10. 

There are several rules and restrictions we must be aware of: 

1. The subscript is permissible. A DIM statement of depth 12, DIM 
S(1 2), actually reserves 13 memory locations for S(0), S(1), . . . ,S(12). 

2. The DIM statement is optional if the largest subscript used for the 
array is 10. 

3. Try to estimate the anticipated size of the array so that excessive 
memory is not tied up through the DIM statement. 

4. The DIM statement may be placed anywhere in the program, but 
must be placed prior to where the array is first used. 

5. The depth specified by a DIM statement may be a number or a 
numerical expression. DIM S(A + 2) is valid provided A has been specified 
beforehand. 

6. A single DIM statement may be used to declare several variables, for 
example, DIM A{30), B{40), C(50). 

7. A program may contain several DIM statements, but each array can 
only be declared once. 

8. The same variable name can be used in a program for a subscripted 
variable and for a nonsubscripted variable; S and S(K) are two different 
variables. 

9. The subscript can be an arithmetic expression; S(2 * 3 + 2) and 
S(A + 5) are permissible. 

10. Arrays may contain numeric or string information. A$(l) is an array 
containing strings. 

Example: Find the Largest Element of an Array 

This program demonstrates the use of a subscripted variable, the DIM statement, and two 
FOR-NEXT loops. A flowchart of the program is shown in Figure 5.4. First the number 
of elements in the array is entered with an INPUT statement. Once the length of the array 
is known, the DIM statement is specified as DIM S(N). N is the number of elements in the 
array. The first loop, lines 30 to 38, is used to input the array S, one element at a time. 
The array is then examined to locate its largest element. To begin with the first element, 
S(1) is assumed to be the largest (line 42). It is assigned to variable BIG. Subsequently, 
the remaining elements S(2) through S(N) are compared with BIG. The FOR-NEXT loop 
of lines 50 to 58 therefore extends for values of I from 2 to N. Every element S(l) is 
compared with BIG in line 52. If S(l) exceeds BIG, then an element larger than the cur- 
rent largest element has been encountered. BIG is equated to that element in line 56. 
Once the loop has been completed the largest element of the array is displayed in Hne 60. 

10 INPUT "NUMBER OF ELEMENTS IN THE flRRflV'j N 

20 DIM S<N> 

30 FOR 1=1 TO N 

34 INPUT S<I> 
■-38 NEXT I 

40 REM ASSUME THE LARGEST ELEMENT IS Si±> 

42 BIQ=S<1> 
r-50 FOR 1=2 TO N 

52 IF S<I><:=BIG THEN 58 

54 REM S<I> IS LARGER THAN THE PREVIOUS LARGEST ELEMENT 

56 BIG=S<I> 
1-58 NEXT I 

60 PRINT "THE LARGEST ELEMENT IS"; BIG 
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( START J 



Program Line Numbers 



INPUT 

.NUMBER OF ELEMENTS, 

N 



1 TO N 



INPUT 
S(l) 



BIG=S(I) 



2 TON 




BIG = S(I) 



DISPLAY 

LARGEST ELEMENT 

BIG 



(10) 



(30)-(38) 



(34) 



(42) 



(50-58) 



(52) 



(56) 



(60) 



( STOP J 



FIGURE 5.4 Find the largest element of an array. 

RUN 

NUMBER OF ELEMENTS IN THE flRRflV? 4 

? 10 

? 12 

? 

? 34 

THE LflRQEST ELEMENT IS 34 

Enter this program and test it. Does it work for negative values as well as for positive 
values? What if N = 1? How would you modify the program to locate the smallest ele- 
ment of array S(l)? 

Since string data can also be compared and ordered, the above program can be used 
to fmd the element in a string array that is closest to the end of the alphabet. Instead of 
dealing with the numerical array S(l), we would deal with the string array S$(l). S$(l) 
may, for example, contain a list of names. 



5.5 NESTED LOOPS 



If one loop is completely enclosed in another loop, the loops are called nested 
loops. Loops may be nested three, four, or more deep. The only Hmit is the 
amount of available memory. Figure 5.5 illustrates the concept of nested 
loops. It shows a segment of a program that includes several nested loops. 
The outer loop (lines 100 to 650) contains two inner loops. The first inner 
loop consists of lines 210 to 270. The second inner loop (lines 330 to 590) 
itself contains an inner loop (lines 400 to 510). The brackets are drawn in 
Figure 5.5 to outline the range of each loop. Loops are legally nested if the 
brackets do not intersect. 



REMEMBER: When you write programs containing nested loops, draw brackets to 
outline the range of each loop. Be sure the brackets do not intersect. 






Example: The Multiplication Table 

We use nested loops to produce a multiplication table for the numbers 4 through 9. 

COMMENTS 



Display heading. 

Outer loop starts. 

Skip a line. 

Display numbers at margin. 

Inner loop starts. 

Compute and display. 

Inner loop ends. 

Outer loop ends. 



10 


REM MULT I PL I CRT I ON TABLE 


±5 


PRINT " 4 5 6 


20 


FOR 0NTER=4 TO 3 


24 


PRINT 


25 


PRINT OWTER,; '^ ".; 


■30 


FOR INNER=4 TO 3 


40 


PRINT ONTER+ INNER.; 


50 


NEXT INNER 


60 


NEXT ONTER 



The index of the outer loop is OWTER. We did not use the variable OUTER since it con- 
tains the BASIC reserved word OUT and is therefore an illegal variable. Aside from 
demonstrating nested loops, this example introduces a new way of tabulating numbers. 
The semicolon at the end of lines 25 and 40 compresses the display on one line. The semi- 
colon at the end of a PRINT statement, sometimes referred to as a hanging semicolon, 
suppresses the line feed. In the absence of Hne 24, the output would be so compressed 
that the numbers would fill the entire screen and would make no sense. Line 24 has no 
hanging semicolon and thus interrupts the compression. Enter the program and run it 
with and without line 24. 

We now execute the program, which includes line 24. 

RUN 



4 


16 


20 


24 


28 


32 


36 


5 


20 


25 


30 


35 


40 


45 


6 


24 


30 


36 


42 


48 


54 


7 


28 


35 


42 


49 


56 


63 


8 


32 


40 


48 


56 


64 


72 


9 


36 


45 


54 


63 


72 


81 



The program can be edited to display a muhiplication table with a different range, 
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±00 FOR LI = 1 TO 10 



•210 FOR L2 = 1 TO IS- STEP 2 



270 NEXT L2 



400 

e 
e 

9 

510 
« 

« 

550 



FOR L3 = 5 TO lO 



FOR L4 = 50 TO 1 STEP -5 



NEXT L4 



NEXT L3. 



650 NEXT LI 

FIGURE 5.5 Nested loops. 



for example, for the numbers 1 through 10, or a table for the lO's, U's, 12's . . . 15's. 
Which lines need to be edited? The alignment of the numbers in the multiplication table 
may have to be improved using techniques to be introduced in the next chapter. 



The hanging semicolon is further illustrated in the following example: 

COMMENTS 

10 FOR K=l TO 3 

20 PRINT "ROW".: Note the hanging semicolon. 

30 NEXT K 

40 PRINT "VOUR BOfiT" 

RUN 

ROW ROW ROW VOUR BORT Entire display is on one line. 

Now delete the semicolon in line 20 and again RUN the program. 

COMMENTS 
20 PRINT "ROW" No hanging semicolon. 



RUN 
ROW 
ROW 
ROW 
VOUR BOAT 



Display appears on successive lines. 



5.6 MULTIPLE SUBSCRIPTS 



Subscripts are used to identify individual numbers in a list of numbers called 
an array. AGE (2) and AGE (N) refer to the second and Nth item in the 
array called AGE. Such arrays are known as singly subscripted arrays. They 
are one-dimensional arrays. 

It is also possible to use arrays with more than one subscript. When two 
subscripts are used, the array is called a matrix. It is a two-dimensional array. 
The elements in a matrix are arranged in rows and columns. Consider the 
problem of storing the ages of students in a classroom. The classroom has 
three rows of chairs with each row containing five seats. A matrix containing 
the desired information is shown below. 

Row 







Column 






1 


2 


3 


4 


5 


21 


19 


20 


18 


17 


20 


28 


18 


16 


19 


19 


20 


19 


18 


22 



t-p 



1 

2 
3 

The matrix has 3 rows and 5 columns. The student in row 2 and column 3 is 
18 years old. This group of ages can be stored in the memory of the com- 
puter in a doubly subscripted array. The programmer must give it a name, 
following the same rules used for naming any variable. The array could be 
named AGE. It must then be decided which of the two subscripts in AGE 
(J,K) is to refer to the row and which to the column. Frequently, the first 
subscript is taken to represent the row number and the second to represent 
the column number. The memory location AGE (2,3) would then represent 
the age of the student sitting in row 2 and column 3. AGE (2,3) is 18. Space 
for these numbers is reserved in memory by the D I M statement 

DIM AGE (3,5) 

This statement will cause the computer to reserve space for 15 numbers. The 
general form of our matrix is AGE (ROW, COL). The DIM statement is op- 
tional if both subscripts do not exceed 10. For the array AGE, no dimension 
statement is necessary up to AGE (10, 10). Since AGE (0,0) is permissible, 
we can have up to an 1 1 X 11 matrix in memory without a DIM statement. 
All the rules mentioned in describing arrays with single subscripts can be 
extended to variables with multiple subscripts. 

The idea of a double-subscripted array can be extended to multiple 
subscripts. For example, the array AGE (ROW, COL, CLASS) is a triple- 
subscripted array in which the three subscripts represent the row number, 
column number, and the class that the individual is attending. AGE (2,3,4) 
refers to the person's age who sits in row number 2, column 3, and attends 
class number 4. 



Example: Magic Squares 

Consider the following matrix of numbers: 



2 9 4 
7 5 3 
6 1 8 
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TWs matrix is a magic square. It has the property that the sum of the numbers along each 
row, column, and diagonal is the same. We now write a program to input these numbers 
into a two-dimensional array SQ, and then check if it is indeed a magic square. 

COMMENTS 



10 REM MflQIC SQUARE 
-15 FOR R0N=1 TO 3 

20 PRINT "ENTER 1 NO. AT R TIME FOR ROW 

NUMBER".! ROW 
■25 FOR C0L=1 TO 1 

30 INPUT SGKROW.. COL> 
• 35 NEIKT COL.. ROW 

40 REM CflLC. & PRINT SUM OF EACH ROW 
■45 FOR R0W=1 TO 3 

50 SUM'::ROW>=0 
■ 55 FOR C0L=1 TO 3 

60 SUM ■:: ROW > =SUM ■:; ROW > +SQ < ROW. COL > 
•65 HEXl COL 

70 PRINT "THE SUM OF ROW".; ROW.: " IS".: SUM<ROW> 

75 NEKT ROW 

80 REM CALC. -fc PRINT SUM OF A DIAGONAL 

85 SUM=0 

88 FOR L=l TO 3 

90 sum=sum+sq'-:l.. l:.' 

92 NEKT L 

95 PRINT "SUM OF DIAGONAL".; SUM 

99 END 



No DIM needed since ROW and 
COL are assumed less than 1 1. 

This line is split to keep program 
and comments separate. 

Enter 1 element of SQ at a time. 
Both loops end here. 



Initialize a sum for each row. 



Initialize SUM. SUM is a different 
variable from SUM(ROW). 

SQ(L,L) is a diagonal term; SQ(2,2) 
is the diagonal term in the second 
row. 



RUN 

ENTER 1 NO. AT A TIME FOR ROW NUMBER 1 



? 4 

ENTER 1 NO. AT A TIME FOR ROW NUMBER 2 



ENTER 1 NO. AT A TIME FOR ROW NUMBER 3 

'? 6 
? 1 

THE SUM OF ROW 1 IS 15 
THE SUM OF ROW 2 IS 15 
THE SUM OF ROW 3 IS 15 
SUM OF DIAGONAL 15 

This program is a little longer than it needs to be. The loop to sum the diagonal elements 
(Hnes 88-92) can be combined into the nested loops that compute the sum of the ele- 
ments in each row (lines 45-75). Can you do it? 

A new statement is introduced in line 35: NEXT COL, ROW terminates two loops. 
The inner loop has the first counter variable, COL, and the outer loop's counter variable 
is ROW. 



5.7 DEBUGGING LOOPS: TRACING AND PLAYING COMPUTER 



In this section we present two techniques most helpful in debugging loops: 
playing computer and tracing a loop. In the process of illustrating these two 
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methods of debugging, we will consider errors that are commonly made in 
programs containing loops. These errors are not syntax errors, but rather 
errors in logic that result in meaningless answers or infinite loops. 

The trace function lets you check on the execution of a program. As the 
execution proceeds from line to line, each and every line number is displayed. 
These line numbers appear inside brackets and represent sequentially all the 
lines that were executed, even repeatedly within a loop. Once the program is 
entered, type in TRON, and press ENTER followed by RUN and ENTER. 
To remove the trace, type TROFF. Once the trace is completed, we examine 
the flow of the execution for any irregularities. The trace is done for us by 
the computer. On the other hand, playing computer requires a manual trace. 
The programmer goes through the program manually line by Hne, carrying 
out its logic and computations in an attempt to find the instructions that are 
responsible for the logic error. Frequently, the trace and playing computer 
are used together to debug a program. 






Example: Sorting a List of Numbers in Descending Order 

The problem we consider in this section is that of sorting a list of numbers in descending 
order, from the high to the low value, and displaying the result. We use the subscripted 
variable S(l) where I = 1 to 10. The array S(l) therefore contains 10 numbers. This pro- 
gram is an extension of the program to determine the largest element of an array, which 
was presented in this chapter. Once the largest element is found it must be placed in S(1). 
Subsequently, elements S(2) through S(10) need to be checked to again locate the largest 
element among them. And so on until the last element, S{10), is reached. It is necessarily 
the smallest element of the original array S(l). 
We enter the following program: 



COMMENTS 



10 REM SORT IN DESCENDING ORDER 

20 INPUT "LENGTH OF flRRflV".; N 

10 PRINT "ENTER THE ELEMENTS ONE AT R TIME" 

32 FOR 1=1 TO N 

34 INPUT S<i::' 

38 NEXT I 

40 FOR K=l TO N-1 

42 REM ASSUME SiK} IS LARGEST 

50 FOR I=K+1 TO N 

52 IF S<J;'C=S<K> THEN 59 

54 REM PERFORM AN INTERCHANGE 

56 S<K>=S<i::' 

59 NEXT I.. K 

61 PRINT "THE SORTED ARRAV" 

62 FOR L=l TO N; PRINT S<L::' : NEXT 
64 END 



Begin search for Kth largest ele- 
ment. 
Search begins with element K + 1. 

Located an element larger than 
S(K)? 
Place the larger element in S(K). 
End of inner and outer loops. 

Entire loop in one line of code. 



We now check the program with test data. We will sort the two-element array 10, 20. The 
expected result is the sorted list 20, 10. 



RUN 

LENGTH OF ARRAV? 2 

ENTER THE ELEMENTS ONE AT A TIME 

? 10 

? 20 



COMMENTS 
You enter 2for N. 

S(l) = 10. 
S(2) = 20. 
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THE SORTED flRRflV 

10 

20 



Oops! 

It is not in descending order. 



The program needs to be debugged. We will trace the program. There is no need to 
trace the beginning of the program where the array is entered. So we put a trace on the 
section of the program in which the sort takes place, between lines 40 and 59. 



39 TRON 
60 TROFF 



The TRON and TROFF are now part of the program. Once the program is debugged, 
these two lines will have to be deleted. 



RUN 

LENGTH OF flRRflV? 2 

ENTER THE ELEMENTS ONE AT fi TIME 

? 10 

? 20 

(. 40 ::■ < 42 ::• < 50 > < 52 > i 59 > < 60 > THE SORTED RRRfiV 

10 

20 



COMMENTS 

You enter 2 for N. 

S(1) = 10. 
S(2) = 20. 

Sequence in which lines were exe- 
cuted. 
Array not sorted properly. 



We now examine the trace. In hne 40 the outer loop is set up with K = 1 ; hne 42 is only 
a REM. In line 50 the iniier loop is started with I = 2. In line 52 the comparison S(2) < 
= S(1) is made. But S(2) is not < S(1), so next we expect to branch to line 56. The trace 
however indicates that line 59 is executed after the test of Hne 52. There is a bug here. 
Looking over line 52 we notice that the subscript J is an error; it should be S(l). We edit 
Une 52 and execute the program. 



52 IF S<iy<=5<K> THEN 59 
RUN 

LENGTH OF flRRflV? 2 

ENTER THE ELEMENTS ONE flT fl TIME 

? 10 

? 20 

< 40 > < 42 > < 50 > •:: 52 ::• >:; 54 > < 56 y < 59 > < 6© > THE 

SORTED flRRflV 

20 

20 



COMMENTS 

Edit line 52: Replace S(J) by S(l). 
Request execution. 
You enter 2 for N. 

S(1) = 10. 
S(2) = 20. 
The trace. Line is split to separate 

program and comments. 
OK, 20 is the larger number. 
There's a bug here. This should be a 

10. 



We still have a bug. The first element of the sorted array is indeed 20, but the second 
is supposed to be 10. We now play computer as we go through the trace. 

After the data have been entered, the loop on K is set up in Une 40. The following 



88 



ch. 5 I looping 

table is the result of playing computer: 



Line No. from Trace 


K 


1 


S(1) 


S(2) 


Comments 


40 


1 




10 


20 




42 


REM 


Unchanged 








50 


1 


K + 1 = 2 


10 


20 




52 


1 


2 


10 


20 


S(2)isnot< = S(1); 
transfer to line 54. 


54 


REM 


Unchanged 








56 


1 


2 


20 


20 


S(1) = S(2). 


59 


1 


2 


20 


20 


Inner and outer loops 
exhausted. 


60 


TROFF 











The trace and playing computer verifies the result of the sorted array having the ele- 
ments 20 and 20. Where is the bug? In looking over the table we notice that both ele- 
ments become equal to 20 in line 56. The difficulty must be there. The bug is in the v^^ay 
we interchange elements. What we want is for S(K) to be what S(l) was and for S(l) to be 
what S(K) was. The values of the two variables are interchanged as follows: 



55 TEMP=S(;k::' 

56 S';k::-=S'::i> 

57 S<i::'=TEMP 



COMMENTS 

TEMP is a temporary variable. 

This line we already have. 

S{l) is specified = TEMP = S(K), 



RUN 

LENGTH OF RRRRV? 2 
ENTER THE ELEMENTS ONE AT fi TIME 
? 10 
? 20 

< 40 > < 42 > < 50 > ■; 52 > <. 54 > < 55 > < 56 >< 5? X 59 >< 6© > THE SORTED flRRflV 
20 

10 

Bravo! We now remove the trace by deleting lines 39 and 60. Type 39 and ENTER. 
Type 60 and ENTER. 

RUN 

LENGTH OF RRRRV? 5 

ENTER THE ELEMENTS ONE RT R TIME 

? 10 

? -5 
? 20 

THE SORTED RRRRV 
20 

10 



The program now works. We found two bugs, which resulted in the following three cor- 
rections to the original program: 

1 . Replace the J by an I in line 52 

2. Add the line: 55 TEMP = S(K) 

3. Add the Hne: 57 S(l) = TEMP 
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EXERCISES 8 



Another approach to debugging, which is not demonstrated in the exam- 
ple, is to introduce several PRINT statements into the program. These display 
intermediate values of variables that may help identify irregularities. 

It is also possible to debug a loop by introducing several STOP state- 
ments into the program. Execution will BREAK at each STOP with a line 
number message. The values of the variables of interest can then be printed 
and examined in the immediate mode. To continue the execution, type 
CONT and press ENTER. 

REMEMBER: Every program, however short or "simple," needs to be tested. Use test 
data for which the answers are known. If the results are not as expected, trace the pro- 
gram and play computer to determine where the bug is creeping in. 



1. Before executing the instructions shown, fill in what you anticipate the display will 
be. Add an explanation for any errors you make. 

Assume fi'::i::'=2 fi*="VES" 

fl'::2>=20 fl*'::5::' = "N0" 

B<i::'=6 C<2.. 5>=7 

B*.::3:.. 7:.' = " SIR" 

Instruction Anticipated Display Display 

a. PRINT fl<i::' 

b. PRINT M'::fl'::i>> . — 



c. PRINT flCl^tBc;!::' . . . . 

d. PRINT fl'3::' -^ - , 

e. PRINT B<11> ^ - 

f. PRINT R . 

g. PRINT fl* ^ 

h. PRINT R$+fl*<5::' 

i. PRINT C<2.. 5::' . . . ^^^__ 

j. PRINT C';2. 11> 

k. PRINT fl*+B*'3. 7> ^ . — - 

2. Enter the following program, but do not run it. 

10 DIM fl'::40::' 
20 FOR L=0 TO 30 
30 R<L>=L 
40 NEXT L 

Now enter the instructions shown below in the order given, and fill in what you antici- 
pate the display will be. Add an explanation for any errors you make. 

Anticipated Display Display 



Instruction 


PRINT 


R'::20> 


PRINT 


L 


RUN 




PRINT 


R^O::' 


PRINT 


Re: 20::' 


PRINT 


R < 35 ::• 


PRINT 


R<-1> 


PRINT 


R<4i:> 


PRINT 


L 
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3. What integer numbers would be stored in each element of array M by the following 
program? 



10 fl=l 

20 FOR 1=1 TO 
r30 FOR L=i TO 

40 M<i.. l:.-=r 

50 fl=fi+2 
60 NEXT L.. I 



4. Write a program to display the integers 1 through 6. 

a. One integer per line. 

b. All the integers on one line. 

c. Three integers per line. 

d. Repeat parts a, b, and c for the integers 1 through M; input M. 

5. What integers would be stored in each element of the array by the following program? 



10 R=13 
20 FOR B=l TO 
20 FOR C=i TO 
r-40 FOR D=i TO 
50 e>::b.. D.. C::'=fl 
60 fl=fl-l 
70 NEXT D.. C B 



6. Investigate how much memory is taken up by each of the following statements. Re- 
call, variable MEM contains that information. 

a. DIM RCIO::' 

b. DIM fl<100> 

c. FOR X=l TO 10; fl'::x::'=X: NEXT X 

d. Any other instructions you might be interested in. 

7. Write a program to set the even-numbered elements of array A to 5 and the odd- 
numbered elements to 10. The array has 20 elements. 



8. Write a program to set each element of array 
dimensional array of length 30. 



to its element number. M is a one- 



9. The program below computes the total number of items in an inventory. Enter the 
program and run it. 



10 DIM N'::4>. P':;4>.. Q<4::' 

11 REM RESERVE SPRCE FOR 4 ITEMS. 4 PRICES RND 4 QURNTITIES 

99 REM HERE IS THE POINT WHERE INPUT BEGINS 

100 FOR 1=1 TO 4 

lie INPUT "ITEM CODE NUMBER".; N<; I > 

120 INPUT "ITEM PRICE *•".: P-:: I ::< 

110 INPUT "QURNTITV IN STOCK".iQ<I> 

140 NEXT I 

200 REM THIS PRRT OF THE PROQRRM DISPLRVS INFORMRTION 

210 C=0 

220 FOR K=l TO 4 

230 PRINT "THERE RRE".: QCK::'.; "OF ITEM NUMBER".; N<K> 

240 C=C-hQ'::K> 

250 NEXT K 

300 REM WE WILL PRINT THE TOTRL CRRRIED RS "C" 

310 PRINT "THE TOTRL NUMBER OF ITEMS WE HRVE FOR SRLE IS".; ( 
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Modify the program to compute and display tlie following: 

a. Total value of the inventory. 

b. Average cost of an inventory item. 

10. Input a hst often numbers and display the Ust in reverse order. 

11. Given a positive number A and an integer M, compute A^ without using t. 

12. Write a program to input a Hst of five names and corresponding ages. Display the 
names and ages of those persons whose age is over 65. Use the following data: 

MORRIS 75, JOAN 43, SANDY 46, SARA 68, PAULA 16 

13. Write a program to display the names and ages of the previous problem in ascending 
order on age. 

14. Write a program to input five first names and output (a) the name that is alphabeti- 
cally closest to the beginning of the alphabet, and (b) closest to the end of the 
alphabet. 

15. Modify the magic square program to compute the sum of the elements in each col- 
umn. Then check if all the sums are equal and display the appropriate message, THE 
SUMS OF ALL THE COLUMNS ARE (ARE NOT) EQUAL. 

16. The balances in a checking account at the end of each of the first six months of the 
year were 230, 450, 610, 610, 380, 420. If the balance on December 31 was 710, 
write a program to input the data, and create an array giving the net amounts de- 
posited or withdrawn during each of the six months. 

17. A company handles 12 items. Initially, there are 1000 of each item. Write a program 
using subscripted variables that will assign a price to each item. Have the program 
input two numbers N and C, and have the computer display the cost of item N, and 
also tell how many items will be left in storage after C of these have been sold. 

18. Two matrices A and B are each of dimension M X N, where M = 3 and N = 2. Write 
a program that compares the corresponding elements of A and B and then forms a 
matrix that contains the larger of the elements. Have the computer display the matrix 
of larger elements. 

19. A special event was attended by 18 people. They paid a total of $24.60 for admis- 
sion. The men paid $2.21 per ticket, the women paid $1.77 per ticket, and the 
children paid 99^. How many children attended the event? Hint: Use three nested 
loops. 

20. Write a program that inputs a two-dimensional Hst of numbers and displays the row 
number(s) and column nuniber(s) of those rows and columns whose elements are aU 
larger than 100. Use the foUowing array to test the program: 

100 195 182 225 

85 125 235 67 

129 342 100 750 

21. Given a ticket number, check the Hst of ten lucky numbers to see if the ticket is a 
winner. Display an appropriate message. 

22. Given a Hst of numbers sorted in ascending order, merge a number X into the Hst. 
Display the new Hst. 

23. The mode of a Hst of numbers is the value that occurs most often. An array may have 
more than one mode. Write a program to accept an array and display the mode(s) 
and the number of times the mode(s) occur. 
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24. Merge two lists of numbers, each sorted in descending order, into a single array also 
sorted in descending order. Display the new array. Modify the program to handle 
string variables. 

25. In football, points are scored as follows: 

A touchdown with a successful conversion 7 points 

A touchdown without a successful conversion 6 points 

A field goal 3 points 

A safety 2 points 

Write a program to input a final score and output the number of combinations of 2's, 
3's, 6's and 7's that will produce that score. For example, 9 points can be scored by the 
combinations 2 + 2 + 2 + 3 , 3 + 3 + 3, 6 + 3, and 7 + 2. The order in which the points 
are scored is not important; that is, the combinations 7 + 2 and 2 + 7 are the same. 
The output should be of the form: 

. . . POINTS CAN BE SCORED IN . . . DIFFERENT WAYS. 

26. Consider nine sHps of paper numbered with the digits 1,2, 3,. ..,9. Group the nine 
slips into three three-digit rmmbers, such as 467, 291, and 538. Determine the group- 
ing that will give the smallest possible product of the three three-digit numbers. MnL' 
One number is in the lOO's, the second in the 200's, and the third in the 300's. 
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Input-output statements communicate information to and from the com- 
puter. We have used the INPUT statement to enter data from the keyboard 
during execution. This approach gives the user of the program considerable 
flexibiHty, since he can use different data each and every time the program is 
executed. This advantage is however offset by the fact that a program con- 
taining INPUT statements can only operate with human intervention and can 
therefore not be run unattended until all the interactive dialog has been com- 
pleted. For some data entry, the INPUT is quite awkward. For example, 
large arrays are typed in one element at a time, a very slow and tedious pro- 
cess. In this chapter we present the READ and DATA statements, as well as 
INPUT # for data entry. The READ statement accesses data stored in the 
program; the INPUT # reads data stored on tape. 

The PRINT statement has been used to produce displays on the screen. 
We have however been unable to control precisely where on the screen the 
output appears and also the way in which the output is displayed. For ex- 
ample, we may wish to output a neat financial report with the $ signs posi- 
tioned in the first position preceding the numbers. The PRINT USING 
statement specifies the format of the output. 

When a program generates output that serves as input for another pro- 
gram, it is convenient to output these data onto tape. The data can then be 
read from the tape at a later time. The PRINT # is used for that purpose. 



6.1 READ AND DATA STATEMENTS 



The READ and DATA statements together permit reading data. The READ 
specifies the variables' names whose numeric or string values are located in 
the DATA statement. The general form of the READ statement is 

READ list of variables separated by commas 

and the general form of the DATA statement is 

DATA hst of values separated by commas 
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Here are some examples of READ and DATA statements: 



EXAMPLES 

10 RERD fl. B.. C 
15 L-'flTn I.- dL.> S 

20 DflTfi 0.. 1. "QIGO" 
25 RERD SUM.. KOUNT. R* 



30 RERD R.. B 
35 DRTR 1.. 2.. 



40 RERD R.. B 
44 RERD C 
48 DRTR 1. '2, 



50 READ R.^ B. C 
54 DRTR 1. 2 
56 DRTR 3 

60 READ fi. B.. C 
65 DRTR 1.. 2 



COMMENTS 

This is equivalent to the single state- 
ment: 10A=1:B = 2:C = 3 

For every variable there is a cor- 
responding value in DATA. DATA 
can appear before READ. Here 
SUM = 0, KOUNT = 1, and A$ 
= "GIGO". 

The DATA statennent may have 
more values than needed. The ex- 
tras are ignored. 

Each READ statement continues 
reading the DATA statement 
where the previous READ left off. 
Here A = 1, B = 2, and C = 3. 

Successive DATA statements are 
like one long line of data. Here 
A = 1,8 = 2,andC = 3. 

Results in an OD error (Out of 
Data). No value furnished for C. 



The statement 



1 RERD X 



tells the computer to find the first DATA statement in the program and take 
the value of X from the list of values in the DATA statement. Each time a 
READ statement is executed, the computer reads the next value from the 
DATA statement. The computer remembers what values have already been 
read, that is, where it left off with the last READ statement. If there are no 
more values left in the DATA statement, the computer moves on to the next 
DATA statement. The computer considers all DATA statements as one long 
line of data. If there are no more DATA statements, an OD error (Out of 
Data) occurs. 

REMEMBER: For every variable appearing in a READ statement, there must be a 
corresponding value in a DATA statement. DATA statements can appear anywhere in 
the program. 



The DATA statement can contain strings or numeric constants. No ex- 
pressions are allowed. The strings do not have to be enclosed in quotes unless 
they include commas, colons, or leading blanks. 



10 READ R$. B* 

15 DRTR JOHN SMITH. "SMITH.. JOHN" 



COMMENTS 



The quotes around SMITH, JOHN 
are required because of the 
comma in the name. 
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The RESTORE statement causes the next READ statement to start over 
with the first item in the first DATA statement of the program. This makes 
it possible to reuse the same data within a program. 



10 READ fl. B : DflTfl 1. 2. 
20 RESTORE 
30 READ C 



COMMENTS 

The DATA statement can be 
chained. A = 1, B = 2. C = 1 and 
not =3 due to RESTORE. 



m000at/ 



Example: Unit Pricing 



The unit price of an item is computed by dividing its price by its weight. The result is the 
price of the item per unit of weight. For example, an item weighing 50 grams and costing 
75 cents has a unit price of \5i per gram. The program illustrates this computation for 
three items. 



-10 FOR K=l TO 3 

20 READ W<K>. P^K::" 

30 PRINT "ITEM NO".; K.: "UNIT PRICE IS".: P^KiVW^aO; "CENTS PER QRfiM" 
-40 NEXT K 

50 DflTfl 215.. 94.. 521. 265.. 405.. 179 

RUN 

ITEM NO 1 UNIT PRICE IS . 437209 CENTS PER GRAM 
ITEM NO 2 UNIT PRICE IS . 508637 CENTS PER GRAM 
ITEM NO 3 UNIT PRICE IS . 441975 CENTS PER GRAM 



This example shows that READ-DATA can also be used in conjunction with 
subscripted variables. In addition, the program may be run for another group 
of three items by retyping line 50 followed by RUN; for example, 

50 DATA 5. 16.. 10.. 31. 8. 28 



RUN 

ITEM NO 
I TEN NO 
ITEM NO 



1 UNIT PRICE IS 

2 UNIT PRICE IS 

3 UNIT PRICE IS 



2 CENTS PER GRAM 
1 CENTS PER GRAM 
5 CENTS PER GRAM 



REMEMBER: The DATA statement provides a means of data entry at the time of 
execution. Edit the DATA statement and then RUN. 



The above program computes three unit prices. This is hmiting. Can you gen- 
erahze the program so that any number of unit prices can be computed? 
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Example: Practice Your State Capitals 



The following program helps you learn the capitals of the New England states. The states 
and their respective capitals are coded into the DATA statement. They are part of the 
program. A flowchart for tht program is shown in Figure 6.1 . 



r START J 

\ DISPLAY 7 

\ OPENING MESSAGE / 



(20)-(24) 



1 TO 6 



DATA 
STATES, CAPITALS 



\ READ 7 

\s$(i),c$(i)/ 



KOUNT=0 



1 TO 6 



DISPLAY 

/'WHAT IS THE CAPITAL OF" 

S$(L) 

T 



Y INPUT 7 

\ A$ / 



NO 



(52) 



KOUNT= KOUNT+1 



\ 




DISPLAY 
INCORRECT TRY AGAIN 

i 



NO 



7 



(58) 



DISPLAY 

"NO! THE CORRECT 

^ANSWER IS";C$(L)y 




V DISPLAY 7 
\ "CORRECT" / 



DISPLAY 

"YOU DID"; KOUNT; "CORRECT 

OUT OF 6. GOODBYE" 

i 

f STOP J 

FIGURE 6.1 Practice your state capitals. 



Program Line Numbers 
(10) 

(35)-(37) 
(36) 

(38) 
(40)--(60) 

(44) 
(48) 

(50) 

(54) 
(54) 

(56) 
(56) 

(70)-(75) 
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10 



24 
30 
-35 

-37 
38 

-40 
44 
48 
50 
52 
54 
56 
58 

-60 
70 
75 



CLS: PRINT "DO VOU KNON THE CRPITflLS OF THE STK NEW 

ENGLAND STftTES?" 
DfiTfl CONNECTICUT.. HARTFORD.. MAINE. AUGUSTA 
DATA MASSACHUSETTS. BOSTON.. NEW HAMPSHIRE.. CONCORD 
DATA RHODE ISLAND. PROVIDENCE.. VERMONT.. MONTPELIER 
REM. READ IN STATES S* AND RESPECTIVE CAPITALS C* 
FOR 1=1 TO 6 
READ S*<i::'.. C.*a> 
NEXT I 
KOUNT=0: REM BEGIN QUIZ 

FOR L=l TO 6 

PRINT "WHAT IS THE CAPITAL OF "j S*c:L>.: "?" 

INPUT A* 

IF C*<L:K>A$ THEN 54 

K0UNT=K0UNT+1 : GOTO 60 

PRINT "NOPE.. TRV AGAIN": INPUT A* 

IF C*<L>=A* PRINT "NOW VOU HAVE IT!": GOTO 6© 

PRINT "NO.. THE CORRECT ANSWER IS "; C.*<L> 

NEXT L 

PRINT: PRINT "VOU GOT"; KOUNT; "OUT OF 6" 

PRINT "IT WAS A PLEASURE SERVING VOU": END 



RUN 

DO VOU KNOW THE CAPITALS OF THE SIX NEW ENGLAND STATES? 

WHAT IS THE CAPITAL OF CONNECTICUT? 

■7 HAPTFORD 

WHAT IS THE CAPITAL OF MAINE? 

? AUGUSTA 

WHAT IS THE CAPITAL OF MASSACHUSETTS? 

? BOSTON 

WHAT IS THE CAPITAL OF NEW HAMPSHIRE? 

? MANCHESTER 

NOPE.. TRV AGAIN 

? DONT KNOW 

NO.. THE CORRECT ANSWER IS CONCORD 

WHAT IS THE CAPITAL OF RHODE ISLAND? 

? PROVIDENCE 

WHAT IS THE CAPITAL OF VERMONT? 

? BURLINGTON 

NOPE.. TRV AGAIN 

? MONTPELIER 

NOW VOU HAVE IT 

VOU GOT 4 OUT OF 6 

IT WAS A PLEASURE SERVING VOU 



This program can be executed over and over again without ever having to reenter the 
names of the states and their capitals. The INPUT statement would not be appropriate in 
this case because the student may not know the capitals himself. If the teacher entered 
them for him, it would be extremely inconvenient to reenter them each and every time. 
A possible alternative to the READ-DATA statements is in this case a series of LET state- 
ments setting separately each state and each capital to S$(l) and C$(l). 



6.2 FORMATTING OUTPUT 



Instructions on how to display the items of the PRINT list are called for- 
matting instructions. They determine the format of the display. So far we 
have formatted our output with semicolons and blanks placed between the 
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items to be printed. For example, 

PRINT 1.: 2.; " ":. -3 

1. 2 —3 

With the semicolon separating the numbers, each positive number is printed 
with a leading and a trailing blank. For negative numbers the leading blank is 
taken up by the minus sign. There are therefore two spaces between the 1 
and the 2; the string of three blanks between the 2 and the -3 results in four 
spaces in the output. It is often desirable to tabulate the output. This means 
specifying precisely the column in which the item in the PRINT list will be 
displayed. A comma placed between each item to be printed ensures that 
successive items start 16 spaces apart. Up to four numbers per line can thus 
be printed. The screen has four zones. So using commas gives a zoned format. 

PRINT "ZONE 1".. "ZONE 2". "ZONE 3".. "ZONE 4" 

20NE 1 ZONE 2 ZONE 3 ZONE 4 

If more than four items are printed, the output takes up more than one line. 
Successive commas make it possible to skip zones. 

PRINT 1.. 2.. 3.. 4, 5.. 6 
12 3 4 

5 6 

PRINT 1.. ..2.. .. 3.... 4 
1 2 



Normally each PRINT statement begins a new output Une. Output from two 
or more consecutive PRINT statements can be made to appear on the same 
Hne by placing a comma after the last item in the PRINT statement. This 
hanging comma will cause the next PRINT statement to display on the same 
line. For example, 

10 PRINT "JACK".. 
20 PRINT "AND".. 
30 PRINT "JILL" 

RUN 

JRCK AND JILL 

This is in contrast to hanging semicolons, which were introduced eariier. 

10 PRINT "JflCK".: 
20 PRINT "AND".: 
30 PRINT "JILL" 

RUN 
JACKANDJILL 






Example: A Sales Report 



A car agency with three salesmen sells two car models, A and B. The commission on the 
sale of model A cars is $125; commission on the sale of model B cars is $95 for the first 
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10 cars and $145 for subsequent sales. The sales for each model by each of the three 
salesmen are as follows: 





Salesman 1 


Salesman 2 


Salesman 3 


Model A 
Model B 


6 

8 


9 

5 


4 

12 



The following program uses READ-DATA statements to input the data and then outputs 
a sales report. The sales data are stored in three one-dimensional arrays: N$(l) contains 
the salesmen's names; ASALES(I) and BSALES(I) refer to sales of models A and B, 
respectively. The subscript I takes on the values 1, 2, and 3 for the three salesmen. 



10 

12 



REM 
FOR 



18 
21 

24 
27 
30 
23 
36 
■39 
42 
45 
48 
51 
54 
57 
60 
63 



SALES 
1=1 TO 



REPORT 

3 



15 REFID N* < I > . flSRLES < I > . BSflLES < I > 



DflTfi ERIC 6. 8. RON. 9. 5. JEFF.. 4. 12 
flC0M<i;'=125 * RSflLES<I> 
C.HECK=BSRLES< I >-10 
IF CHEC:K>0 THEN 36 
BC0M<I>=95 * BSflLES < I > 
GOTO 39 

BCOri< I > =950+145 * CHECK- 
NEXT I 

REM PREPARE REPORT 
CLS: PRINT "SUPER AGENCV 
PRINT 
PRINT 



COMMENTS 

DIM statements are not needed 

here. 
For each salesman, read his model 

A and B sales. 
Sales data for each salesman. 
Commission for model A sales. 
Model B sales above ten cars. 



Over ten cars 
$145 per car. 



the commission is 



PRINT 
PRINT 
PRINT 
END- 



SALES REPORT": PRINT 
N*'::i>.. N«-'::2>. N*<3;:' 
'MODEL A SALES".. ASALES<i::'.. ASALES<2;'j. ASALES<3> 

■ COMM I SS I ONS " . ACON < 1 > . ACOM <.Z>, ACOM < 3 > 
'MODEL B SALES".. BSALES<i::'.. BSALES<2>.. BSALES<3> 

■ COMM I SS I ONS " .. BCOM < 1 > . BCOM •:; 2 > . BCOM < 3 > 



The program contains one loop. In the loop we read the data and compute the commis- 
sions. In lines 27 to 36 the commissions for model B sales are determined in a special 
way to account for the stipulation that the commission rate increases from $95 to $145 
for all sales above ten model B cars. We now execute the program 



RUN 

SUPER RGENC't' SALES REPORT 



MODEL A SALES 
COMMISSIONS 

MODEL B SALES 
COMMISSIONS 



ERIC 
6 

750 
y 
76© 



RON 

9 

1125 
5 
475 



JEFF 
4 

500 

12 
1240 



This report uses the four zones to create the four columns of information. Descrip- 
tive information appears in the first zone. Sales data pertaining to each of the three 
salesmen appear in the remaining three zones. 
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Two serious limitations are evident from the sales report. First, if the 
agency had more than three salesmen, we would require more than the four 
available zones. We need a way of squeezing together the tabular display. 
Second, the earnings in dollars are not lined up the way financial informa- 
tion is usuahy displayed. The PRINT TAB and PRINT USING statements 
help, respectively, to alleviate these two shortcomings. 

The TAB function can be used to bring the columns of the report closer 
together. The principle is the same as in setting tabs on a typewriter. The 
column selected for output is represented by the argument (in parentheses) of 
the TAB function. TAB(K) means move the cursor to the Kth print position. 
The argument K can be a constant or an expression between and 255 inclu- 
sive. TAB positions greater than 63 are on succeeding lines. TAB may be 
used several times within a PRINT statement, and no punctuation is required 
after a TAB specification. 



REMEMBER: No space is allowed between TAB and the parenthesis; TAB (K) is not 
permissible. The proper form is TAB(K), 



EXAMPLES 

PRINT "COL 1"J TflB<10:;'"C.OL 10" 
COL 1 COLIO 

PRINT TflB'3>3.TflB<S>S 

PRINT TRB<3. 5>3..i TflBCS. 6>8 



PRINT TRB<-3:>5: 

?FC ERROR 

PR I NT TAB K 8 > S:- TAB •.; S > 3- 

PR I NT TRB <:: 8 > 8.i TAB < 11 ::• s 



10 FOR K=l TO 5 

20 PRINT TflB<K:.'.i "TONER' 

30 NEIKT K 



COMMENTS 

COL 1 starts in the first print posi- 
tion; COL 10 in the tenth. 

No punctuation is required. 

The Sis in the eighth print position. 

The expression in (?), the argu- 
ment, is truncated; TAB uses an 
integer argument. 

The argument cannot be negative. 

Unexpected. 

As expected. 

The index K of the FOR-NEXT 
loop is the argument of the TAB 
function. 



C-P 



RUN 
TOWER 
TOWER 
TOWER 
TOWER 
TOWER 



Example: Graphing an Equation 

We use the TAB function to graph X versus Y for the parabola Y = X^ . 



10 FOR X=-S TO 6 STEP 2 

20 v=:k * X 

30 PRINT TflB<V>.:X 
40 NEXT X 
45 END 



COMMENTS 

Graph the points at X = -6, -4, -2, 
0,2,4,6. 



RUN 
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X = -4 



y 



i ^ 

T X t- 

Each point on the graph is identified by the value of X at the point. The X and Y axes 
were drawn in manually. Similarly, the points can manually be connected to trace out the 
parabola. Notice that the parabola is upside down. This is because the X and Y directions 
are interchanged: here X is vertical and Y is horizontal. A more sophisticated approach to 
graphing is presented in a later chapter. 
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Example: Pascal's Triangle 

The numbers in this triangle have the property that every number is the sum of the num- 
ber above it and the number to the left of the one above it. 



10 REM PflSCflL-S TRIfiNGLE 

15 FOR D=l TO 7 

2ei fl<D.. d::'=i 

25 NEXT D 

30 FOR R0W=1 TO 6 

35 K=0 

40 FOR C:OL=i TO ROW 

45 fl t: ROW+1.. COL ::• =fl < ROW.. COL > +fi < ROW^ COL-i > 

50 PRINT TflEKK:.u R<ROW.. col:;-.! 

55 K=K+5 

60 NEXT COL 

65 PRINT: PRINT 

70 NEXT ROW 



The loop of lines 15 to 25 sets the diagonal elements of the triangle to 1. The nested 
loops calculate and display the triangle of numbers. Line 45 is the algorithm for com- 
puting a new number A(ROW + 1,C0L) based on the number above it, A(ROW,COL), 
and the number to the left of the one above it, A(R0W,C0L-1). The TAB function is 
used to display the triangle with the variable K providing the number of tabs for even 
spacing. We now execute the program. 

RUN 

1 



10 



1 

4 1 

10 5 



To appreciate the usefulness of the TAB function run the program without the 
TAB(K) in line 50 and note what a difference the TAB makes in the appearance of the 
triangle. 
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Pascal's triangle has several other properties. The descending diagonals 
are the same as the columns. The numbers in each row correspond to powers 
of 11: the first row is 11^ = 1, the second is 11^ = 11, the third is 11^ 
= 121, and so on. Similarly, the sums of the numbers in each row are powers 
of 2. For example, the third row is 1 +2 + 1 = 4 = 2^. Two additional 
properties of Pascal's triangle deal with more advanced mathematics. The 
sum of the numbers along the ascending diagonals form the Fibonacci se - 
quence, and the numbers in each row correspond to the coefficients of the 
binomial expansion. Can you edit the program to verify any of these proper- 
ties? 

The TAB(X) function controls the cursor's position within the 64 print 
positions on a line. The POS(X) function has the value corresponding to the 
cursor's position. POS(X) is therefore an integer between and 63 inclusive. 
The argument X is a dummy argument and may be any number or numeric 
expression. When the cursor is in the usual position beneath the READY, it 
is in the position. 

COMMENTS 

REflDV 

PRI^4T POS<i::' The argument 1 is a dummy argu- 

ment. 



One possible apphcation of the POS function is to display a report con- 
sisting of several columns with a prescribed spacing between columns. We 
now redo the headings of the Super Agency sales report. 

PRINT "MODEL" TfiB<::P0S<i::'+5> "ERIC" TflB<P0S<:i>+5> "RON" 

TRB<P0S<l.->+5> "JEFF" TRB<P0SCl>+5> "BRIAN" 
MODEL ERIC RON JEFF BRIAN 

In this case we displayed the headings five spaces apart. Notice that we can 
now comfortably fit five columns across the screen. We no longer depend on 
the four zones of the screen to provide the layout. 

The screen displays up to 16 lines with 64 characters per line. This gives 
a total of 64 times 16 or 1024 print positions. These print positions are 
labeled through 1023 and can be individually accessed using the PRINT @ 
statement. 

PRINT @ 0.. 1 displays a 1 at the top left corner of the screen 

PRINT e 64.. 2 displays a 2 on the second line along the left margin of the screen 

PRINT @ 64*8.. 3 displays a 3 midway along the left margin of the screen 

The PRINT @ statement may be used to graph an equation. In order to 
plot on successive lines, the location specification must take into account the 
presence of 64 print positions per Une. The following program graphs the 
equation Y = X * X. It uses the PRINT @ statement and presents an alterna- 
tive to the version described earHer in this chapter in which the TAB func- 
tion was utihzed. 

COMMENTS 

10 CLS : 1=0 Initialize the line counter to zero. 

20 FOR X=-6 TO 6 STEP 2 
5:0 V=X*X 
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40 PRINT & 64*1+ v.. :=< Graph at row ! and position Y. 

50 1 = 1+1 Incrennent the counter to print in 

60 NE;kT X the next row. 

Type in the program and check that its output is identical to the graph 
produced by the program that uses the TAB function. 

It is important to note that the @ symbol in the PRINT @ statement may 
not be typed with the SHIFT key depressed. The symbol will appear to be 
correct on the screen, but an error will occur. 

The format of the output may be selected in another way. The statement 

PRINT USING "string"; item list 

allows you to specify the format with which the item list is to be displayed. 
The actual format is given by the "string". For example, suppose we have a 
list of variables A, B, C whose values are $27,216, $351,951, and $5. We 
wish to display these variables in a neat column. 

COMMENTS 

10 fl=27. 216 : B=3.51. 951 : C.=5 Specify A, B, and C. 

20 I MflQEt= "*•*###. ##" Specify the "string" for PRINT 

30 PRINT USING IMRGE*-.; fi USING. 

40 PRINT USING IMaQE*.; B 

50 PRINT USING IMRGE*.i C 

RUN 

*2?. 22 Rounded to the nearest penny. 

*351. 95 Fractional penny dropped. 

*5. 00 Floating $ sign. 

The decimal points are hned up nicely; this can also be done slightly differ- 
ently : 



line 20 is not 



The string "$$###.##" represents the numeric field that is selected for 
the variables A, B, and C. Each # specifies the position of a digit. In this case, 
numbers with more than two digits beyond the decimal point are rounded. 
The digits 5 and above are rounded up, and the digits 4 and below are 
dropped. The $$ characters place a $ sign in front of the number. 



REMEMBER: The string "$$###.##" will round to the nearest penny in a PRINT 
USING statement. 



The following example further illustrates use of the PRINT USING state- 
ment : 

10 PRINT USING "IN #### MflNHRTTRN WRS BOUGHT FROM THE 

INDIRNS FOR **##.##".. 1626.. 24 

RUN 

IN 1626 MRNHRTTRN NRS BOUGHT FROM THE INDIRNS FOR *24. 00 









COMMENTS 


10 


fl=27. 216; B= 


=551. 951: C=5 


In this version, 


3:0 


PRINT USING 


"**###. ##"; R 


needed. 


40 


PRINT USING 


"**###. ##".: B 




50 


PRINT USING 


"*•*###. ##".-. C 
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In addition to the $ and # characters, there are several other symbols 
used in conjunction with numerical and string data. These are summarized in 
Table 6.1 and illustrated in the following examples: 



10 REM FORMflTTING OF NUMERICflL DflTR 

20 INPUT I NRQE*.. NUMBER 

^:0 PRINT USING IMAGE*.; NUMBER 

40 GOTO 20 



COMMENTS 

The "string" in PRINT USING is 

variable IMAGE$. 
The semicolon is required. 
Infinite loop for data entry. 



We now execute the program and try different entries for the variables 
IMAGES and NUMBER. Since the program continuously loops back to line 
20, we only have to enter RUN once. To escape the loop, press BREAK. 



RUN 

? ###. #. 12:<. 45 

123. 5 

? ###. #. 123:4. 5 

?il234. 5 



? "#.. ###. ##". 1214. 5 
1.. 234. 50 



? +##. #.. 12. 1 
+12. 1. 

? ##. #-»-.. 12. 3 
12. 3+ 



COMMENTS 

Request execution. 

Data are entered. 

123.45 is rounded. Each # corre- 
sponds to one digit. 

The % indicates that specified field 
(IMAGES) is too small. Largest 
number that fits into ###.# is 
999.9. 

The comma is inserted and trailing 
zeros added. 

Display a leading + sign if number is 
positive. 

A trailing + sign is now displayed. 



TABLE 6.1 Image specifiers for PRINT USING 



Symbol 



Usage 



Example 



# 



tttt 



%spaces% 



Display a digit. 

Specify location of decimal point. 

Indicate where comma is to appear. 

For positive numbers, display a leading or 

trailing + sign; for negative numbers a - sign 

is displayed. 
Display a leading or trailing - sign regardless 

if the number is positive or negative. 
Display a $ sign immediately preceding the 

leftmost digit. 
Replace leading blanks with asterisks. 
Display a $ sign preceding the leftmost digit 

and replace leading blanks with asterisks. 
Display number in scientific notation (on the 

Una printer, t is [). 
Display the first character of a string. 
Display the first two characters of a string. 
Display N characters of a string. N equals 2 

plus number of spaces. 



TT'll II 
#.#####tttt 



% % 
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? -##. #.. 12. 3 

? ##. #-.. -12. 5. 

? ##. #-.. 12. 3; 

12. 3 

? **##.. 12 

=+'*12 

? **####.. 12 

H-;:+:*:+:12 

? *####. ##.. 12. 56 

* 12. 56 



A leading - sign is displayed even 

though 12.3 is positive. 
-12.3 is negative, so a trailing - is 

displayed. 
12.3 is positive, so instead of a - 

sign a trailing blank is displayed. 

Two asterisks are displayed. 

Fill leading blanks with asterisks. 
Two asterisks appear plus two 
more for two leading blanks. 

$ sign appears in front of leading 
blanks. 



? **####. ##.. 12. 56 
$12. 56 

? **:!:####. ##, 12. 56 

+**:+:$12. 56 



? #. ####[: C C C .. 12. 56 
0. 1256E+02 

? ###. ####C C C C .. 12. 56 
12. 5600E+00 



$ sign appears immediately to left 
of first digit. 

Combination of above; $ sign ap- 
pears to left of first digit; remain- 
ing blanks filled with *'s. 

Exponential notation with no sig- 
nificant digit to left of decimal. 

Two significant digits to left of 
decimal point. 

To escape, enter BREAK. 



The PRINT USING statement is also useful in displaying character infor- 
mation. 



10 REM FORMflTTINQ OF CHflRRCTER DfiTfl 

20 INPUT IMflGE*.. T*.. Ft-.. Z* 

3:0 PRINT USING IMRGE*.: T«-.. F*. Z* 

40 GOTO 20 



RUN 



JOHN.. FITZGERALD.. KENNEDY 



JFK 

?!!!.. LVNDON.. BRINES.. JOHNSON 

? ?•:•;.. CRRDS.. SINK.. NONE 

CRSINO 

? ! ! y: ;•;.. THOMRS. STEARNS.. ELIOT 

T S ELIOT 



COMMENTS 



Infinite loop for data entry. 



The ! displays the first character of 
each string. 

Place a blank between the first 
characters of each string. 

The first two characters of each 
string are displayed. 

A combination of the ! and % for- 
mats. 



BREAK IN 20 
RERDV 



To escape from program, press 
BREAK. 






Example: Checkbook Balancing 



This program is used to balance a checking account. The program makes use of the PRINT 
USING statement. First the initial balance is entered. Then the individual transactions are 
entered; the month and day are typed in separated by a comma. Subsequently, the trans- 
action is entered. A positive transaction is a deposit and a negative transaction is a check 
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charged against the account. To escape from the entry routine, enter END,END for the 
month and day. Two numeric and two string subscripted variables are used. The string 
variables store the month and day of the transaction, M$(l) and D$(l), respectively. The 
transaction array is TRANS(I), and the account balance is BAL(I), where BAL(O) is the 
initial balance. Once all the transactions and their dates have been entered into their 
respective arrays and the balances computed, the report is generated in lines 75 to 85. 
The loop's upper limit is 1-1 (line 75), since the Ith transaction is a dummy transaction, 
which is not included. It is used to escape from the input loop. Following the Hsting of 



C^^ 



Program Line Numbers 







I 



(55) 



INPUT 

INITIAL BALANCE 

BAL(O) 



(50) 



I = 1 + 1 



I 



BAL(I) = BAL(I-1)+TRANS(I) 



I 



INPUT 

"ENTER DEPOSIT/CHECK"; 
TRANS(I) 



DISPLAY 

"ENTER TRANSACTION'S MONTH, 

DAY TO STOP ENTER END, END"y 

I 



(45) 




DISPLAY 

'INITIAL BALANCE" 

V BAL(O) . 

^ DISPLAY 7 
\ HEADINGS/ 

t 



K 



1 TO 1-1 

T 



DISPLAY 
M$(K); D$(K);TRANS(K); BAL(K) 



DISPLAY 
'FINAL BALANCE"; BAL(l-i; 



(20) 



(25) 



(30) 



(35) 



(40) 



(60)-(65) 



(70) 



(75)-(85) 



(78)-(80) 



(90) 



C^zD 



FIGURE 6.2 Checkbook balancing. 
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the program is a sample run, which illustrates the data entry and the resulting report. 
Type in the program and try it out on your own checkbook. You may wish to put a trace 
on the execution to gain full understanding of the logic. A flowchart of the program is 
shown in Figure 6.2. 

10 D I n BflL < 100 > .. TRANS < 100 ;:• .. D* i 160 > , M* < 100 > 
15 CLS; CLEAR 1000 

20 INPUT "INITIAL BALANCE".: BAH:0> 
25 1=1+1 

30 PRINT "TRANSACTION MONTH.. DAV FOR EX. MAV. 30^ TO STOP ENTER END. END" 
35 INPUT M^a::-.. D*c;i::' 
40 IF l1*<i::' = "END" THEN 6© 

45 I NPUT " ENTER DEPOS I T C + > /CHECK < - > " j TRANS < I > 
50 BAL < I > =BAL < I -1 :.•• +TR ANS < I > 
55 GOTO 25 

60 CLS: PRINT "INITIAL BALANCE"..: P*= "***##..######. ## DOLLARS" 
65 PRINT USING P*; BAL CO!;' 

70 PRINT: PRINT "DATE DEP/CHECK < - ."> BALANCE" 
r75 FOR K=l TO I-l 

78 PRINT USING "K X"i\'W<.K)i 

79 PRINT USING "/i^i"; D*<K>j 

80 PRINT USING "##.######.##-"; TRANS c;K>. BAL -CK^ 
-85 NEXT K 

90 PRINT: PRINT "FINAL BALANCE $";BAL<I-1> 

RUN 

INITIAL BALANCE? 100© 

TRANSACTION I'lONTH.. DAV FOR EX. MAV. 30; TO STOP ENTER END.. END 

? MARCH.. 5 

ENTER DEPOSIT':; + > /CHECK <::->? -55 

TRANSACTION MONTH.. DAV FOR EX. MAV. 30.: TO STOP ENTER END. END 

? MARCH.. 18 

ENTER DEPOS I T':>> /CHECK-::-::'? 100 

TRANSACTION MONTH.. DAV FOR EX. MAV. 30; TO STOP ENTER END. END 

? END.. END 

INITIAL BALANCE **++:+::+:*l.. 000. 00 DOLLARS 



DATE 


DEP.- 


CHECK ■::-::■ 


BALANCE 


MARCH 


5 


55. 00- 


945. 00 


MARCH 


18 


100. 00 


1.. 045. 00 



FINAL BALANCE * 1045 



6.3 CASSETTE INPUT-OUTPUT 



The TRS-80 supports two auxiliary memory devices, cassette tapes and mini 
disks. The major difference between a tape and a disk is that the tape is a 
sequential device, while a disk is a random-access device. In order to load 
into the computer a specific program stored on tape, it is necessary to for- 
ward the tape up to where the program of interest is stored. A program 
stored on disk may be accessed directly. Programs as well as data files can be 
stored on these auxiUary memory devices for later use. In this section we 
briefly discuss the input-output statements used in accessing a cassette tape. 
To save a program on tape or to read a program from tape we use the 
CSAVE and CLOAD commands. These have been discussed earlier. The 
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PRINT #-1 and INPUT #-1 statements, respectively, print data on tape and 
read data from a cassette tape. The -1 specifies the device number, a cassette 
recorder. If two cassette recorders are used simultaneously, the device num- 
bers are -1 and -2. 

Storing data on tape is particularly useful v^hen these data are to be up- 
dated occasionally or in data-processing appHcations involving lots of data. 
Small amounts of data that need Httle or no updating can conveniently be 
stored in a DATA statement within a program. The general form of the 
PRINT #-1 is 



PRINT #-1.. fl.. B.. C 



fl*.. B*.. C*. 



The comma after the #-1 is required. 

The Hst of items to be printed can contain numerical as well as string 
variables, but in total cannot exceed 255 characters. The general form of 
the INPUT #-1 statement is 



INPUT #-1.. fl.. B.. C. 



fl*. B*.. C*. 



In order to read data from tape the variables in the PRINT #-1 and 
INPUT #-1 statements must be fully compatible. The INPUT #-1 statement 
must be identical to the PRINT #-1 statement that created the data file on 
tape. 

The following sections of a program input from tape 1 00 names and year- 
to-date earnings, process the data, and then print on tape the updated 
earnings. 



COMMENTS 



50 INPUT "POSITION TAPE FOR READING. WHEN REflDV 

ENTER GO"; Q$ 
52 FOR K=l TO lOO 
54 INPUT #-1.. flt'CK::'.. e<k:;' 
56 NEXT K 



Press the PLAY button on recorder. 
This line is split to keep program 

and comments separate. 
Read from tape 100 names and 

year-to-date earnings. 



70 FOR K=l TO 100 
72 E '::K >=£■.: K>-HPflV'::K ::• 
74 NEXT K 



Update year-to-date earnings; array 
PAY(K) must be entered in the 
lines between 56 and 70. 



80 IWPUT "REWIND TAPE. WHEN READV ENTER GO"; Q* 

82 IF Q*O"G0" THEN 89 

84 FOR K=l TO 10© 

86 PRINT #-1. A*<K>. E<K> 

88 NEXT K 



Press the RECORD and PLAY but- 
tons on the recorder. 



Print the names and the updated 
year-to-date earnings on tape. 
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Once the tape is positioned (line 50), the data are read in from the tape in 
lines 52 to 56. The earnings are updated in lines 70 to 74 by adding the cur- 
rent pay to the year-to-date earnings. The newly computed earnings are then 
stored on tape in lines 84 to 88. Line 80 stops execution to allow the opera- 
tor to rewind the tape or to insert a new tape. It is usually good practice to 
save the previous data as a back up. 

In the above example the number of records processed was 100. Gen- 
erally, the number of records in a file is unknown. The last record of the file 
must be easily identifiable so that the INPUT#-1 can be properly terminated. 
A "dummy" record, also commonly referred to as a flag, is printed on tape 
at the end of the file. During the process of reading the tape into memory, 
each record is checked so that the last record can be identified. The last 
record may, for example, contain the employee's name "LAST RECORD". 
This name is then the last record's identifying flag. 



50 I =0 

52 1=1+1 

54 INPUT #-i. fl*< I >. E< I > 

56 IF R*< I ;:•<>" LAST RECORD" THEN 52 

58 . . . 



Once the last record has been read from tape, execution proceeds in line 58. 
The total number of records processed is I, which includes the last (dummy) 
record. 



1 . Find the error(s) in each of the following: 

Incorrect Instruction Reason 

a. DfiTE 1. 2.. 3 

b. DRTfl i/2. l.-'3.. 1/4 

c. DRTfl.. 3.. 4 

d. DRTR 3. 5 3. 6 



2. Combine the following two DATA statements into a single statement: 

10 DRTR 1.. 2.. 3 
15 DRTR 10.. 20.. 30 

3. Before executing the instructions, fill in the anticipated display and compare it with 
the actual display. Enter the instructions in the given sequence. 



Instruction Anticipated Display Display 



a. PRINT ±i 2 

b. PRINT 1.. 2 

c. PRINTl.. .. 2 

d. 10 PRINT 1.. 2 
20 PRINT.. 3.. 4 
RUN 
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Instruction Anticipated Display Display 

e. PRINT TflB'.:i>6 

f. PRINT TRB -CI ::•.:€■ — -^ 

g. PRINT TRB < 1 > .. 6 

h. CLS 

i. PRINT USING "*##.##".; 3. 1415 

j. PRINT USING "**#..###".; 2222. 55 — — 

k. PRINT USING ■'**##.#";: 460 



1. PRINT USING ■'!".: "TO BE OR NOT TO BE" 



m. PRINT USING "! !".; "PETER".: "JOSEPH" 



n. PRINT P0S<1> „_ 

O. PR I NT POS «;: 1 ::■ .. POS < 2 > .. POS < 3 > .. POS < 4 > .. POS < 5 > 



p. PRINT TflBCie^POS'^lO:- __^^_^_ 

q. PRINT TfiBt:i0>.. POS<10> __^^^^ 

r. PRINT © 0. "HOME" 

S. PRINT © 1024/2+64/2.. " M I DSCREEN " - - ^— 

4. What output will the following program produce? 

10 DflTfl 2, 4.. 6.. 8 

20 READ fl.. B 

30 RESTORE 

40 RERD W.. X.. V. Z 

50 PRINT R; B.: W^ X.i V.; Z 

5. Write a program to input a date as three variables, M, D, and Y. For example, 6/11/ 
1940 will store M, D, and Y as 6, 1 1 , and 1940, respectively. Output the date entered 
in the form JUNE 1 1 , 1940. The names of the months are to be stored in a DATA 
statement. 

6. READ a list of numbers. Place the positive numbers of the DATA list into an array P 
and the negative numbers into the array N. Display the arrays P and N. 

7. Write a program to graph the equation Y = X^ + X^ - X + 2 for X = 0, 0.5, 
1 , . . . , 3. Each point on the graph is to be identified by the value of X at the point. 

8. Write a program to display in tabular form the numbers 1 through 10, their squares, 
square roots, cubes, and cube roots. The columns are to be 12 spaces apart. 

9. Modify the car agency sales report program to include the total number of cars sold 
by each salesman and the total commission earned by each salesman. 

10. Modify the car agency sales report program to include a fourth salesman. Use the 
TAB function to lay out the report, taking advantage of the entire screen. Assume 
the fourth salesman sold no model A cars and 14 model B cars. 

1 1 . What display does the following program produce? 

10 FOR 1=1 TO 10: PRINT TRBCI > "*" : NEXT I 

Can you explain it? 

12. Print a Ust of integers on a cassette. Copy this list from the cassette onto a second 
cassette with all duplicates removed. 

13. Write a program to create an inventory file. Each record includes the following items: 
part number, number on hand, price, vendor's name (20 characters). Once the file is 
created on tape, display it on the screen. 
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14. Write a program to create a maUing list on tape. Make provisions for initially entering 
names and addresses from the keyboard and subsequently adding and deleting names 
from the keyboard. The mailing list is to be displayed with an appropriate format 
and must include a dummy last record. Use your telephone book as a source of data. 

15. Scan a fUe of employees' social security numbers, names, and birth dates. The com- 
pany's mandatory retirement age is 65 . Display a list of those employees who must 
retire within the next year, within two years, and within three years. 

16. Write a computer program to build a file containing the earnings of the employees of 
a company. The company has 50 employees whose earnings are updated on a weekly 
basis from the keyboard. The file is to contain the name and year-to-date earnings 
of each employee. Each week the tape is read and an updated version is generated. 
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The BASIC language contains many different functions. Each function per- 
forms an operation that would otherwise take several statements in your pro- 
gram. Collectively, they form a Ubrary of functions. Like the arithmetic 
operations of addition or multipHcation, the library functions make it possi- 
ble to perform certain calculations that occur very frequently without having 
to program them separately each time. They are convenient to use and re- 
duce the programming effort. Some Ubrary functions perform tasks that are 
quite compHcated to program as they require advanced techniques. The 
functions are preprogrammed routines and are supplied with BASIC. Library 
functions are generally identified by a three- or four-letter name followed by 
an argument in parentheses. They are used as expressions in BASIC state- 
ments ; properly applied they will save you many steps. 



7.1 INT FUNCTION 



The INTeger function, INT(A), examines the argument A and returns a value 
equal to the greatest integer not larger than A. For example, the expression 
for the greatest integer less than or equal to 3.14 is INT(3.14), which is 3. 
INT(A) can be referred to as "the greatest integer in A". The argument A 
may be zero or any positive or negative number. The argument may also be 
an expression : 



PRINT INT<3. 14) 

PRINT INT<-3.. 14::- 

-4 

R=6 

PRINT I NT CI. i4*RC2;:' 

112 
PRINT INT<:«:> 





COMMENTS 

3 is largest integer not larger than 

3.14. 
-4 is largest integer not larger than 

-3.14. Note, -3 is larger than 

-3.14. 

The argument may be an expression. 
INT (3.14*6*6) = 113. 

X is undefined; X = 0. 



t-P 



Example: Long Division 



The INT function may be used to determine the quotient and remainder in long division. 
For example, dividing 16 by 5 gives a quotient of 3 and a remainder of 1 . Converting 70 
inches to feet and inches requires the division of 70 by 12, which yields 5 remainder 10, 
or 5 feet and 10 inches. 
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10 PRINT "ENTER fl AND B FOR fl/B" 

20 INPUT fl.. B 

30 Q=INTCfl.-'B:.' 

40 R=fl-B+Q 

50 PR I NT " QUOT I ENT= " .; Q 

60 PRINT "REMflINDER="; R 



COMMENTS 



Want to divide A by B. 
Compute the quotient. 
Compute the remainder. 



RUN 

ENTER fl flND B FOR fl/B 

? 355.. 60 

QUOTIENT= 5 

REMAINDER^ 55 



How many hours and minutes are 
there in 355 minutes? 
5 hours, and 
55 minutes. 



How would you use this program to determine the number of days, hours, and minutes 
in 3000 minutes? 






Example: Rounding to Any Desired Accuracy 

This program takes advantage of the INT function to round a number N up or down to as 
many digits D beyond the decimal point as is requested by the user. 

10 INPUT "THE NUMBER VOU WISH TO ROUND"; N 

20 INPUT "flCCURflTE TO HOW MflNV DIGITS BEVOND THE DECIMAL POINT"; D 

30 IF N<0 THEN 50 

40 PR I NT I NT t; N^ieC D+. 5 ;:■ /IOC D : END 

50 PR I NT < 1+ 1 NT •:." N*10C D+. 5 :;• ::• /IOC D : END 

When this program is executed for several values of N and D, the following results are 
obtained 



Number N 


Digits D 


Result (Rounded N) 


3.14 


1 


3.1 


3.16 


1 


3.2 


-3.14 


1 


-3.1 


3.14 





3 


314 


-1 


310 



Note, D = 1 rounds the first digit to the right of the decimal point. D = -1 rounds the 
first digit to the left of the decimal point. 

In line 30 of the program we check if the number to be rounded is negative. Suppose 
N is 3.14 and D is 1 . Let us play computer and check line 40. 



N=3. 14 : D=l 

PRINT N*10CD+. 5 

31. 9 

PRINT INT<N*10CD+. 5> 

31 

PR I NT I NT < N*10E D+. 5 > /IOC D 

3. 1 



COMMENTS 

lOtD = 10;N*10tD = 3.14 
N*10tD + .5 = 31.9 

31.9 is truncated. 

The final answer. 



Can you play computer and check Hne 50 of the program for N = -3.14 and D = 1? 
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In a previous chapter we used the PRINT USING statement to round numbers. The 
"string" within the PRINT USING statement specified the desired number of digits to the 
right of the decimal point. The present program also rounds to the left of the decimal 
point. For example, in the last example of the above table of results we rounded 314 to 
310. 



REMEMBER: If X is an integer, INT(X) equals X. If X is a positive number, INT(X) 
equals the whole number part of X. If X is negative, INT(X) is the next lower whole 
negative number. 



7.2 RND FUNCTION 



d — -^ 



The function RND generates random numbers between and 1 and random 
integers greater than 0. The RND function is useful to simulate random 
events, for example, flipping a coin. The computer cannot toss a coin even 
once. But it can be programmed to simulate these tosses, that is, to produce 
outcomes that correspond to heads and tails. Since the outcome events of 
heads and tails are equally likely, the outcomes are random and the function 
RND can be used. 

RND{0) generates a six-digit random number larger than and less than 
1. RND(N) generates a random positive integer between 1 and the integer 
portion of N. N must be a positive number less than 32768. 

COMMENTS 

PRINT RNDOj) N = 0. Random number between 

76S7'09 and 1. 

PRINT RND'.:6:' Throw a die and roll a 4; a random 

4 integer larger than 0. 
PRINT RND'! 52:.' Pick a card from a 52-card deck. 

50 

PRINT RND<2> Flip a coin; for example, heads is 1 

l and tails is 2. 

PRINT RNC".:0. 5> The integer portion of the argument 

. 92853-8 is used. 

PRINT RND": 6. 75:' Generates an integer between 1 and 

5 6 inclusive. 

When the statement RANDOM is executed in a program before the RND 
function is used, it will initialize the random-number generator to a new 
starting value. This will ensure that the RND function will produce a fresh 
sequence of random numbers that differs from any previous sequence. 



Example: Generating Random Numbers Between Given Limits 

The following program generates any number of random numbers between the lower 
limit L and the upper limit U. The random number X is in the range L < X < U. 
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10 RANDOM 

20 INPUT "DESIRED NO. OF RANDOM NOS. 

:<0 INPUT "LOWER. UPPER LIMITS"^ L.. U 

40 FOR K=l TO N 

50 PRINT L+'.lU-LiJ^RNDCO:.'.: 

60 NEXT K 



COMMENTS 
Ensures randomness. 



RUN 

DESIRED NO. OF RANDOM NOS. ; 
LOWER. UPPER LIMITS? 1.1 
1. 8971 1. 22652 1. SS466 

RUN 

DESIRED NO. OF RANDOM NOS. - 
LOWER.. UPPER LIMITS? 1.3 
ci. 8c'4ly d. ss^^S 1. SoD.il 



The numbers are all between 1 and 
3. 



These three numbers differ from 
the above; a random process. 



i ^ 



Try this program for L, U of 0, 10 and 0, 0.5. What happens if you enter -10, for L, U? 
or 10,0? 



Example: Tossing Heads and Tails 



10 RANDOM 

15 H=0:T=0 

20 INPUT "NUMBER OF TOSSES".; N 

30 FOR K=l TO N 

40 IF RNDc:2>=2 THEN 60 

50 T=T+1: GOTO 70 

60 H=H+1 

70 NEXT K 

80 PRINT N^ "TOSSES" i li "TAILS".; H.: "HEADS' 



COMMENTS 



Generate a 1 or a 2 randomly; a 1 is 
tails, a 2 is heads. 



RUN 

NUMBER OF TOSSES? 100 

100 TOSSES 41 TAILS 59 HEADS 



In this program we arbitrarily assign the occurrence of the random number 1 to tails 
and 2 to heads. As the number of tosses increases, we expect the number of heads and 
tails to be approximately equal. Type in the program and execute it for N = 10, 100, and 
1000. If we repeat the run for N = 1000 a second time, will the number of heads be the 
same as the first time? 



REMEMBER: RND(O) gives a random number larger than and less than 1. RND(N) 
gives a random integer greater than and less than or equal to N; for example, if 
N = 5, the random integer is greater than and less than 6. 



O 



Example: Random Graphic Display 



In this example we again generate a 1 or a 2 randomly, but instead of assigning them to 
tails and heads, respectively, we print a blank if a 1 occurs and print a star if a 2 occurs. 
This pattern of blanks and stars is set into a rectangle of width W and height H. 
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10 RflNDOM: CLS 

15 INPUT "NIDTH AND HEIGHT OF DISPLflV"; N. H 
I — 20 FOR 1=1 TO H 

25 FOR K=l TO N 

30 IF RND<2>=2 THEN 45 

35 PRINT " "; 

40 GOTO 50 

45 PRINT "*"; 

50 NEXT K 

55 PRINT 
' — 60 NEXT I 

65 END 

A sample execution follows : 

RUN 

WIDTH RND HEIGHT OF DISPLflV? 12.6 

* ******** 

>fC IXt >f^ !+ 1 JT" ^f^ 'T' 'T' 

** * * * 

* * **** * 
* *** *** * 
*** * **** 

Enter the program and execute it for W = 50 and H = 12. You can experiment with sev- 
eral different display characters, such as dashes, periods, or slashes, by editing lines 35 
and 45. Another variation in the graphic display is possible by editing line 30 

30 IF RND'::5>=2 THEN 45 

Oh the average only one out of five random numbers produced by this line are 2's. The 
graphic display will therefore consist primarily of blanks. Try it, and then edit lines 30, 
35, and 45 together to produce some TRS-80 art. More sophisticated techniques for pro- 
ducing graphic displays are presented in a later chapter. 



7.3 MORE FUNCTIONS 



t-P 



Table 7.1 lists a number of available library functions in addition to INT and 
RND. You may have not heard of some of them, depending on your mathe- 
matical background. The Hst is included for reference. In each case the argu- 
ment A may be in single or double precision and may be an integer, constant, 
or an expression. 



Example: A Bar Graph of the ABS Function 

The ABS(X) function returns a positive value regardless of whether the argument X is 
positive or negative. Both ABS(5) and ABS(-5) equal 5. In this example we plot the 
equation Y = ABS(X) in the form of a bar graph, also called a histogram. We let X take 
on values between -18 and 18 inclusive. To plot a bar graph, it is necessary to display a 
character such as * on the screen Y times for each value of X. So if Y = 5, five *'s will 
represent the value of Y in the form of a bar. 
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TABLE 7.1 Additional library functions 



Function 



Description 



ATN(A) Arctangent of the argument A. This is the angle in radians whose 

tangent is A. To convert radians to degrees, multiply radians 
by 57.2958. 

COS(A) Cosine of A. Argument A must be in radians. If A is in degrees, 

use COS(A*.01 74533). 

SIN(A) Sine of A. Argument A must be in radians. If A is in degrees, use 

SIN(A*.0174533). 

TAN (A) Tangent of A. Argument A must be in radians. If A is in degrees, 

useTAN{A*.0174533). 
EXP{A) Computes the exponential function e"^. This is the inverse of the 

natural logarithm function LOG (A); i.e., A = EXP(LOG(A)). 
LOG (A) Computes the natural logarithm of A. A cannot be negative. 

This is the inverse of the exponential function, EXP(A); i.e., 

A = LOG(EXP(A)). To compute the logarithm of A to the 

base B use LOG(A)/LOG(B). 

SQR(A) Computes the square root of A. Argument A cannot be negative. 

This function is identical to At. 5, but is faster. 
ABS(A) Absolute value of A. If A > 0, ABS(A) = A. If A = 0, 

ABS(A) = 0. If A < 0,ABS(A) = -A. 
CBDL(A) Converts the expression in the argument A into a value in double 

precision. 
CINT{A) Identical to INT(A) except A must be in the range -32768 to 

+32767. 
CSNG(A) Converts the expression in the argument A into a value in single 

precision. 
FIX(A) Truncates all the digits to the right of the decimal point. For 

A > 0, FIX(A) = INT(A). For A < 0, FIX(A) =INT(A) + 1. 
SGN(A) Equals 1 if A > 0;equalsOif A = 0; equals -1 if A < 0. 

TAB (A) PRINT TAB (A) moves the cursor to position A on the line. If 

A > 63, cursor moves to next line. Argument A must be 
between and 255 inclusive. 



10 FOR :k=-is to 


18 STEP 


20 V=RBS'::K::' 




30 PRINT USING 


'###".; >=: 


40 FOR 1=1 TO V 




50 PRINT "*"..■ 




-60 NEXT I 




70 PRINT 




-80 HE'Al K 





RUN 

-18 ++*****+ + + :+::+:*:+::+::+::+::+: 
- 1 2 * * * * * * * * * * * * 
-6:+::+:;+::+::+::+: 
0:+: 

6:+::+::+::+:.+ :+: 
1 2 * * * :+= *■ * * * :+• * * * 
18***:+:***********:+:** 



118 ch. 7 I library functions 

The numbers displayed along the margin of the bar graph are the X values. The number of 
*'s in each bar reflects the value Y, that is, the absolute value of X. The absolute value of 
-18 is 18, and consequently 18 *'s are displayed at -18. Similarly, ABS(18) is 18, and 
18 *'s are displayed at X = 18. For X = 0, no *'s should appear, since ABS(O) is 0. Do 
you know why a single * appears at X = 0? 



^ — " — «b\ 



Example: The Rule of 72 Verified 



In an earHer chapter we introduced the rule of 72. The rule states that the number of 
years needed for a bank deposit to double in value is approximately equal to 72 divided 
by the annual interest rate. In this example we will check this rule of thumb and investi- 
gate its accuracy. The exact doubling time is the logarithm of 2 to the base (1 + R), 
where R is the interest rate expressed as a decimal fraction. We compare the exact and 
approximate doubling times for interest rates ranging from 2% to 20%. 



10 REM CHECK THE RULE OF 72 

15 CLS 

20 PRINT .. "VERRS TO DOUBLE" 

25 PRINT "INTEREST RRTE".. "EJ^iflCT FORMULfl".. "RULE OF 72". "DIFFERENCE' 

30 FOR 1=2 TO 20 STEP 2 

35 REM CONVERT INTEREST RfiTE TO DECIMfiL FORM 

40 R=I/100 

45 fl=LOG ■; 2 > .-■■LOG < 1+R > 

50 B=72/I 

55 PRINT I., fl.. B.. fi-B 

60 NEXT I 



The LOG function is used in line 45 to compute the exact time to double. The logarithm 
of 2 to the base (1 + R) is the quotient of L0G(2) and L0G(1 + R). Execution of the 
program yields the following results. 



RUN 



INTEREST RATE 



10 

12 
14 
16 
18 
20 



VEflRS TO 


DOUBLE 








EKflCT FORMULR 


RULE 


OF 72 


DIFFERENCE 


35. 0027 




36 




-. 997295 


17. 673 




18 




-. 326956 


11. 8957 




12 




-. 104336 


9. 00648 




9 




6. 4745E-03 


7. 27254 




7. 2 




. 0725422 


6. 11626 




6 




. 116263 


5. 29007 




5. 14286 


. 147209 


4. 67018 




4. 5 




. 170179 


4. 18784 




4 




. 187835 


3. 80178 




3. 6 




. 201784 



The rule of 72 seems to be quite accurate as demonstrated by the fourth column of 
the table. The difference between the exact number of years and the years predicted by 
the rule is small. The rule is most accurate for an 8% interest rate. For interest rates less 
than 8%, the difference is negative. This means that the rule of 72 is overestimating the 
number of years to double. For interest rates larger than 8%, it underestimates the num- 
ber of years. All in all, it is a very good rule of thumb . 
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1. Before executing the instructions, fill in the anticipated display and compare it with 
the actual display. 

Anticipated Display Display 



a. 


Instru( 
PRINT 


:;tion 
INTt3;.' 


b. 


PRINT 


INTO.. Q±y 


c. 


PRINT 


INT<-3.. ei> 


d. 


PRINT 


INTO.*fl::' 


e. 


PRINT 


FIK -.:5. 5> 


f. 


PRINT 


Fi;:-:; (-5. s::- 


g- 


PRINT 


SGN <-5;:' 


h. 


PRINT 


SGN '::5> 


1. 


PRINT 


RND < > 


i- 


PRINT 


RNDclfl;- 


k. 


PRINT 


RND<2> 


1. 


PRINT 


RND<6::' 


m. 


PRINT 


RND';:52. 5:.' 


n. 


PRINT 


RND<-6> 


0. 


PRINT 


inT'::rnD'.;0>> 


P- 


PRINT 


flBS < -5 ::• 


q- 


PRINT 


RBS < 5 > 


r. 


PRINT 


flBS"::©::' 


s. 


PRINT 


CINT<16/1> 


t. 


PRINT 


C I NT < 45678:.' 


u. 


PRINT 


CDBL'::i/3> 


V. 


PRINT 


SQR'C4::' 


w. 


PRINT 


SQR';-4> 



2. What do the following expressions represent? 

a. X-V*INT'CK/V::' 

b. SQN'::X>*INT';RBS<X;'> 

c. flBS ';::k-f I :=•=:<:=■=:>::' 

d. ON SGN'::X>+2 GOTO l©.- 2©.. 3© 

3. Write a program that performs the same function as INT(X). Input to the program is 
a noninteger number X, and the output is the integer portion of X. Do not use the 
library function INT in the program. 

4. Write single statements to generate the following: 

a. A random integer X, where 10 <= X <= 20. 

b. A random number X, where 1 < X < 2. 

5. Modify the program presented in this chapter to generate N random numbers be- 
tween given limits. Input N, L, and U, and now generate only integers in the range 
L to U, where L and U are to be included in the range. 

6. Write a program to throw a die N times and display the frequency of occurrence of 
each of the six possible outcomes. Modify the program to monitor throwing two dice 
N times. 

7. Write a program to create your own random-number generator. Follow the procedure: 

a. Input a starting number ST for example ST = 11. 

b. Input a constant, BASE, for example BASE = 17. 

c. Input a constant, MULT, for example MULT = 5. 

d. Compute a new value for ST = ADD + MULT *ST. 

e. Compute a new value for ST = remainder left after ST (from step d) is divided by 
BASE. At this point ST is an integer between and BASE-1 . Hint: The remainder 
of X/Y is X - Y*INT(X/Y). 
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f. Compute Z = ST/BASE. Z has a value between and (BASE - 1)/BASE. If 
BASE is much larger than 1, then (BASE - 1)/BASE is close 1. Z is the desired 
random number between and 1 . 

g. Repeat steps d to f for additional random numbers. 

Test this random-number generator for randomness. Use it to throw a die N times. 
Does the six come out approximately one-sixth of the time? Hint: The random num- 
ber in step f needs to be converted into a random number in the range 1 to 6. 

8. Test the randomness of the statement RND(20) by generating N random numbers 
and displaying the following properties of the stored random numbers. 

a. The average of the random numbers. 

b. The number of values less or equal to 10. 

c. The number of odd integers. 

d. The number of times a value appears twice in succession. 

Compare the results obtained for N = 100, 500, and 1000 with the expected results. 

9. Give BASIC statements that simulate the following operations: 

a. Finding the total of a roll of three dice. 

b. Choosing 3 cards from a deck of 52 cards, replacing each card after it is drawn. 

c. Choosing 13 cards from a deck of 52 cards without replacing the cards after they 
are drawn. 

d. Spinning a roulette wheel. 

e. The birth dates of N people. 

10. Write a program to play the game of Hi-Lo. The computer picks a number from 1 to 
100 for you to guess. After each guess, the computer responds by telling you whether 
the giifess was too high or too low. The computer keeps track of the number of 
guesses you take and informs you of the number of guesses it took you to guess the 
number. 

11. Generate three random integer numbers each in the range from 1 to 8. Do not allow 
for the random numbers to be repeated; that is, the three numbers must all be 
different. 

12. Toss a coin N times and determine the longest run of heads. Try your program for 
N = 10, 100, 500, and 1000. 

13. Given a three-digit whole number, display its reversal. The number 123 is then dis- 
played as 321 . Hint: Use the INT function to isolate the digits. 

14. The number 153 has an interesting property. It equals the sum of the cubes of its 
digits; that is, 153 = 1^ + 5^ + 3^. There are only four three-digit numbers (in- 
cluding 153) with this property. Find these four numbers; they are in the range 
100 to 500. 

15. A market survey indicates that a manufacturer can sell 100,000 toys if the selUng 
price is $1. For every cent he lowers the price he can sell an additional 5000 toys. 
Write a program to compute the gross sales for each selling price from $1 to 50^. 
Display the results in the form of a graph of selUng price versus sales. What price 
yields the maximum sales? 

16. The sine of an angle may be obtained from the series 

X^ X^ X^ x^ 

SINX = X + + 

3! 5! 7! 9! 

where X is measured in radians. The ! sign is called factorial. For example, five 
factorial (5!) is computed as5X4X3X2X land3!=3X2X 1. Write a 
program that uses the first five terms of the series to compute the sine of an angle 
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measured in radians. In tabular form, compare the sines computed from this series 
and from the Hbrary function SIN for angles of 10, 30, 60, 90, 120, 150, and 180 
degrees. (One degree equals 0.0174533 radians.) 

17. Modify the bar graph program presented in tliis chapter to display a bar graph of 
the sine function in the range to 360 degrees. 

18. Write a program to plot a graph of the sine function using the TAB function. Dis- 
play the graph for angles between and 360 degrees. 

19. Write a program to compute e^ using the first six terms of the following series: 

X^ X^ 
e^ = 1 +X+ — + — +••• 

2! 3! 

where 3! (three factorial) is 3 X 2 X 1. Compare the results forZ = 0, 0.5, 1, 1.5, 
. . . , 3 with the EXP(X) function. 

20. Write a program to verify the following trigonometric relation: 

S I N < 2*R > =2*S I N < R > *C.OS C fl > 

for the angles A = 0, 10, 20, . . . , 90 degrees. Display the expression on the left side 
of the relation in one coluiim and the expression on the right side in a second column. 
Then visually check to see if the values are the same. 



ahsptei^ 
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8.1 THE PURPOSE OF SUBROUTINES 



A subroutine consists of a set of program statements that may be used re- 
peatedly at different places throughout the program. Subroutines are usually 
written to carry out generalized procedures. For example, it may be neces- 
sary to sort arrays at different points within a program. Instead of repeating 
the statements required to perform a sort each and every time sorting is 
required within a program, it is possible to write the sort statements as a 
subroutine. This subroutine will then appear only once. 

A subroutine can be an aid in writing shorter and more compact pro- 
grams. The programmer can break his program into smaller logical compo- 
nents that are easier to work with, resulting in a more readable program. A 
subroutine can result in an economy of code for procedures that are to be 
performed repeatedly within a program or performed repeatedly in separate 
programs. Long complex programs that include no repetitive tasks may be 
broken into several segments. These segments then make up the complete 
program. They can be coded and debugged separately, and within the pro- 
gram one subroutine can refer to another subroutine. 



8.2 UNCONDITIONAL TRANSFER TO SUBROUTINES 



A subroutine is a sequence of statements within a program. Any Hne number 
within a program may be the start of a subroutine, as long as it is followed at 
some point by the statement RETURN. Access to the subroutine is gained 
from the main program. The statement GOSUB n, where n is the starting line 
number of the subroutine, causes the transfer to the subroutine. The com- 
puter then branches to the line indicated (line n) and executes all the state- 
ments up to the RETURN statement. Execution subsequently returns back 
to the Hne following the GOSUB statement. The GOSUB is an unconditional 
transfer statement. For example. 
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100 REM MR IN PROGRRM 



COMMENTS 

Start of the main program. 



150 GOSUB 200 
160 PRINT fl.. B.. C 



190 END 

200 REM SUBROUTINE BEGINS 



250 RETURN 




Unconditional transfer to line 200. 

Lines 160 to 190 are executed after 
the subroutine. 

End of the main program. 
The subroutine consists of lines 200 
to 250. 



Branch back to the main program 
at line 160. 



It may be necessary to have more than one subroutine. In that case we 
have a main program and two or more subroutines. Each subroutine is 
reached from the main program. If one subroutine calls on another subrou- 
tine, the subroutines are nested. For example, suppose the main program 
calls on subroutine A, which in turn calls on subroutine B. Once execution 
of B is completed, execution does not return directly to the main program, 
but rather to subroutine A. Specifically, execution returns to the statement 
following the GOSUB within subroutine A. Once the remaining lines of the 
subroutine A have been executed, execution returns to the main program at 
the Une following the GOSUB. The main program terminates with an END 
statement; the subroutines each terminate with a RETURN. A subroutine 
may have more than one RETURN statement, and execution always returns 
to the statement following the GOSUB statement. We now type in a program 
that includes two nested subroutines. 



100 PRINT "FROM MAIN PROGRAM" 

110 GOSUB 200 

120 PRINT ■■ FINALLY.. BACK IN MAIN PROGRAM AT LINE 120' 

130 END 

200 PRINT "ENTER SUBROUTINE A AT LINE 200" 

210 GOSUB 300 

220 PRINT "BACK IN SUBROUTINE A AT LINE 220" 

230 PRINT "RETURNING TO MAIN PROGRAM" 

240 RETURN 

300 PRINT "ENTER SUBROUTINE B AT LINE 300" 

310 PRINT "RETURNING TO SUBROUTINE A" 

320 RETURN 



This program demonstrates the execution of two nested subroutines. 
The main program consists of lines 100 to 130, subroutine A consists of lines 
200 to 240, and subroutine B includes lines 300 to 320. It is a good idea to 
assign Hne numbers in different ranges (lOO's, 200's, and 300's) to individual 
subroutines. It makes it easier to follow the program. Run the program and 
observe the sequence in which the execution is performed. 
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RUN 

FROH t'IflIN PROQRfln 

ENTER SUBROUTINE R fiT LINE 206 

ENTER SUBROUTINE B AT LINE 300 

RETURNING TO SUBROUTINE fl 

BACK IN SUBROUTINE fl AT LINE 220 

RETURNING TO MAIN PROGRAM 

FINALLV. BACK IN MAIN PROGRAM AT LINE 120 



REMEMBER: Every subroutine must have a RETURN statement. 



C) 



Example: Producing a Blinking Display 



On occasion it may be of interest to display a message that is sure to catch the user's 
attention. Examples of such instances include when an illegal entry is made, when a spe- 
cific error occurs during execution, such as division by zero, or when one team is declared 
a winner in a computer game. 



100 INPUT "te:kt to be DISPLAVEC-"^ a* 

110 INPUT "DELAV TIME IN SECONDS"; S 

120 DELAV = 385*S 

130 CLS 

140 GOSUB 200 

150 PRINT A* 

160 GOSUB 200 

170 GOTO 130 

200 REM TIME DELAV SUBROUTINE 

210 FOR 1=1 TO DELAV: NEXT I 

220 RETURN 



Type in the program and then execute it. Enter your favorite phrase and a delay time 
of 2 seconds. The phrase will then bHnk every 2 seconds on the screen. The program is in 
an infinite loop as line 170 always transfers execution back to Hne 130, where the screen 
is cleared. To terminate the blinking display, press the BREAK key. During execution of 
the program, transfer is made to the time delay subroutine twice, once from Hne 140 and 
once from line 160. The first statement of the subroutine is in this case a REM statement. 
The subroutine consists of a FOR-NEXT loop. The number of times this loop is executed 
in line 210 depends on the desired duration of the delay between successive displays on 
the screen. Variable DELAY determines this duration. It is computed in line 120 as the 
product of 385 and the number of seconds S between successive displays. The number 
385 is the number of times the computer executes the FOR-NEXT loop of line 210 in 1 
second. You may use a timer to verify it. 

This program clearly demonstrates the usefulness of subroutines. Transfer is made to 
the subroutine twice, but the subroutine appears only once and consists of lines 200 to 
220. Each time the execution of the subroutine is completed, execution returns to the 
statement following the GOSUB. The computer "remembers" where it must return. 
Another important consideration is that this subroutine can be used in any other program 
in which a blinking message is to be displayed. 



8.3 CONDITIONAL TRANSFER TO SUBROUTINES 






The GOSUB is an unconditional transfer to a subroutine. It may be desirable 
to transfer conditionally to a subroutine. 

COMMENTS 

10 GOSUB 200 Transfer unconditionally to the 

subroutine at line 200. 

10 IF R:>B then GOSUB 200 Conditional transfer: if A exceeds B, 

20 ... transfer to the subroutine at line 

200; otherwise continue at line 20. 

10 ON E GOSUB 200.. lOO.. 400 Conditional transfer: if E equals 1 

transfer to subroutine A at line 
200; if E = 2, transfer to subrou- 
tine B at line 300; if E = 3, trans- 
fer to subroutine C at line 400. 



Example: Computer-Assisted Instruction 

The following program is an arithmetic driU on short division. The program consists of a 
main program (lines 100 to 165) and two subroutines. The dialog between the computer 
and the student is estabhshed in the main program where the problems are posed. De- 
pending on the student's response, the ON-GOSUB branches to the appropriate subrou- 
tine. If the student's answer is incorrect, execution transfers to the first subroutine (hnes 
200 to 250), where the computer states the correct solution and randomly picks one of 
three comments to encourage the student. Execution branches to the second subroutine, 
lines 300 to 330, if the answer is correct. The computer selects randomly and displays 
one of three preprogrammed compliments. This example demonstrates the use of two 
subroutines that are accessed by means of an ON-GOSUB statement. A flowchart of 
the program including line numbers is shown in Figure 8.1 . 

100 CLS: INPUT "HI.. WHAT IS VOUR NAME".; N* 

105 PRINT N*.: " TODflV WE'LL PRACTICE SHORT DIVISION. " 

106 PRINT "FOR EXAMPLE I LL DISPLAV 126/21 AND VOU'LL TVPE IN" 

107 PRINT "VOUR ANSWER 6 FOLLOWED BV •ENTER-. VOU ONLV GET 1" 

108 PRINT "CHANCE AT EACH OF THE 5 PROBLEMS! SO CONCENTRATE!" 
110 K=0: COUNT=0; RANDOM 

115 COUNT=COUNT-H : L=l 
120 A=RND'::20;:' : C=A*RNDc:25> 

125 INPUT "WHEN VOU ARE READV TVPE 'GO- AND PRESS ENTER".; G$: CLS 

126 PRINT 

130 PR I NT " HERE -■ S PROBLEM NUMBER " .: COUNT.; " . " > C.; " / " .; A.; " = ? " 

135 INPUT "WHAT IS VOUR ANSWER".: B 

140 IF C-'A = B THEN L=2 

145 ON L GOSUB 200.. 300 

150 IF C0UNTC5 THEN 115 

155 PRINT: PRINT N*.; " VOU MISSED".; 5-K.: "PROBLEMS OUT OF 5" 

160 PRINT "IT WAS A PLEASURE WORKING WITH VOU SO LONG ".; N* 

165 END 

200 REM SUBROUTINE: RESPOND TO INCORRECT ANSWER 

205 ON RND<3> GOTO 210.220.230 

210 PRINT "NOPE.. VOU LOST VOUR COOL" : GOTO 240 

220 PRINT "VOU NEED TO CONCENTRATE MORE" : GOTO 240 

230 PRINT "COME ON ".i N*.: " VOU CAN DO BETTER" 
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( START J 



PRELIMINARY DIALOG WITH STUDENT 
INITIALIZE VARIABLES 



Program Line Numbers 



(100)-(126) 



PRESENT PROBLEM TO 
STUDENT 



(200)-(250) ,, 



INPUT 
STUDENT'S ANSWER 



(140)-(145) 
NO /ANSWER\ YES 
XORRECT?> 



(130) 



(135) 



SUBROUTINE 



RESPOND TO 
INCORRECT ANSWER 



SUBROUTINE 



RESPOND TO 
CORRECT ANSWER 



(300)-(330) 




PRINT 

STUDENT'S SCORE 

AND FAREWELL 



(150) 



(155)-(160) 



Cf™0 



[165) 



FIGURE 8.1 Computer-assisted instruction. 

240 PRINT "THE CORRECT RNSWER IS".: C/fl 

250 RETURN 

100 REM SUBROUTINE: RESPOND TO CORRECT fiNSNER 

304 K=K+1 

307 ON RND<3::' GOTO 310.. 320. 330 

310 PRINT "RIGHT ON VOU ARE DOING GREfiT WORK!" 

320 PRINT "TERRIFIC! I LOVE IT!": RETURN 
330 PRINT N*.i " VOU RRE fl WHIZ KID" : RETURN 



: RETURN 



RUN 

HI.. WHAT IS VOUR Nfll'lE? MARION 

MARION TODAV WE'LL PRACTICE SHORT DIVISION. 

FOR EXAMPLE I'LL DISPLAV 126/21 AND VOU'LL TVPE IN 

VOUR ANSWER 6 FOLLOWED BV ■ENTER-. VOU ONLV GET 1 

CHANCE AT EACH OF THE 5 PROBLEMS! SO CONCENTRATE' 

WHEN VOU ARE READV TVPE •GO- AND PRESS ENTER"^' GO 



127 sec. 8.3 / conditional transfer to subroutines 



HERES PROBLEi-i NUl-IBER 1 : 255/15=? 

WHAT IS VOUR ANSWER? 15 

VOU NEED TO CONCENTRATE MORE 

THE CORRECT ANSNER IS 17 

WHEN VOU ARE READV TVPE GO- AND PRESS ENTER? GO 

HERE-S PROBLEM NUMBER 2 : 9/9=? 

WHAT IS VOUR ANSWER? 1 

MARION VOU ARE A WHIZ KID 

WHEN VOU ARE READV TVPE 'GO" AND PRESS ENTER? GO 

HERE'S PROBLEM NUMBER 2 : 180.-'15=? 

WHAT IS VOUR ANSWER? 12 

TERRIFIC! I LOVE IT! 

WHEN VOU ARE READV TVPE -GO' AND PRESS ENTER? GO 

HERE'S PROBLEM NUMBER 4 ; 136/17=? 

WHAT IS VOUR ANSWER? 8 

MARION VOU ARE A WHIZ KID 

WHEN VOU ARE READV TVPE •GO' AND PRESS ENTER? GO 

HERE'S PROBLEM NUMBER 5 : 48/10=? 

WHAT IS VOUR ANSWER? 4 

RIGHT ON VOU ARE DOING GREAT WORK! 

r-IARION VOU MISSED 1 PROBLEMS OUT OF 5 

IT WAS A PLEASURE WORKING WITH VOU SO LONG MARION 



In line 110 of the program, variables K and COUNT are initialized. K counts the 
number of correct answers given by the student, and variable COUNT keeps track of how 
many problems have been issued. The statement RANDOM reseeds the random-number 
generator and guarantees a new sequence of random numbers each time the program is 
executed . 

In line 115 the counter is incremented and variable L is set to 1. L is a flag: L = 1 
corresponds to an incorrect answer, and L = 2 corresponds to a correct answer given by 
the student. 

Lines 120 to 135 generate the problem, display it, and accept the student's answer. 
The problem is created in such a way (line 120) that the answer is always an integer less 
or equal to 25. 

Lines 140 to 145 check the student's answer and transfer execution to the appropri- 
ate subroutine. If the answer is incorrect, L = 1, execution transfers to the first subrou- 
tine at line 200. If the answer is correct, L = 2, execution is transferred to the second 
subroutine at Hne 300. 

The first subroutine, Hnes 200 to 250, displays a message that is randomly picked 
among lines 210, 220, and 230. The correct answer is also given. The RETURN transfers 
execution back to the main program at line 150. 

The second subroutine, lines 300 to 330, selects and displays randomly one of three 
compliments in response to the student's correct answer. Subsequently, execution returns 
to line 150 of the main program. 

In line 150 of the main program, variable COUNT is checked; if it equals 5, all five 
problems have been answered and the final tally is presented in lines 155 to 160. Other- 
wise, execution returns to line 1 15, where the next problem is presented. 

The END statement is usually optional. In this program it is however required. If the 
END in line 165 were omitted, execution would proceed from line 160 directly into the 
subroutine lines 200 to 250. That would make no sense, and in addition an RG ERROR 
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would occur, indicating a RETURN without GOSUB. In the absence of the END, execu- 
tion of the subroutine is invoked without a GOSUB statement. A RETURN is then 
impossible to execute. 



REMEMBER: Programs that include subroutines generally require an END statement. 



8.4 A FINAL COMMENT 



EXERCISES 11 



The examples we have studied only begin to illustrate the many ways sub- 
routines can be used by the programmer. In many instances, a program may 
involve many calculations that are exceedingly involved and complex. For 
example, an analyst might be concerned about the financial future of a com- 
pany. Many factors affect the company ; among them are the cost of materials 
and manufacturing, inventory control, sales, and the share of the market. 
Using these and other characteristics, the analyst will attempt to forecast the 
company's future. The resulting total program can be very substantial. In 
such a case it is good practice to break the program down into separate seg- 
ments. Each of these could then be written as a separate subroutine, and the 
main program would be a mere skeleton consisting of Uttle more than a 
series of GOSUB statements. In many instances it is even convenient to 
perform input-output operations in separate subroutines. The advantages of 
such an approach include the following: 

1 . It is easier to write several short subroutines than one very long 
program. 

2. Subroutines can be debugged and tested separately. Errors are located 
more readily in this manner. 

3. Modifications to the program can be made more easily. It is possible 
to add a subroutine or to modify an existing one without affecting the rest 
of the program. 

4. Subroutines make it more convenient to read a program or document 
its function. 



1. Enter the following program. Before executing it, anticipate the output it will 
produce. 

10 PRINT "STRRT" 

20 GOSUB 70 

40 PRINT "BACK IN HflIN" 

50 END Anticipated display 

70 PRINT "SUBROUTINE 1" 

75 RETURN Actual display 



2. To the above program, add the line 25 GOSUB 70. What output will the program 
now produce? Delete line 25. 
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3. In the program of problem 1, delete line 50. What output will the program now 
produce? Reenter line 50. 

4. Add the following statements to the program of problem 1 . 

3ei QOSUB S0 

80 PRINT "SUBROUTIHE 2" 

85 RETURN 

Before executing the program, anticipate its output. 

5. Add the following statement to the program of problem 4: 72 GOSUB 80. Antici- 
pate the output of the new version of the program. 

6. Add the statement 45 GOTO 10 to the program of problem 5. Now what happens? 

7. Write a subroutine that examines an array of 10 numbers and outputs how many 
numbers are negative. Input the array in the main program. 

8. Modify the program to produce a blinking display (presented in this chapter) to 
input the number of times the message is to be displayed. 

9. Extend the blinking display program to operate like a digital clock. The display is to 
be the actual time. 

10. Write a program to simulate a dice game. For each roll of the dice, use a subroutine 
that generates two random numbers between 1 and 6. On the first toss you win with 
a total of 7 and the computer wins with a total of 12. Any other sum becomes your 
point. You continue to throw, trying to match this point. If you roll a 7 in the pro- 
cess, the computer wins. Keep a tally of games won and lost. 

11. Write a subroutine to compute and output the mean and standard deviation of data 

stored in an array A. Input the array in the main program. Use the following mathe- 
matical relationships for the computation. 

SUM A 

MEAN = — 

N 



/SUM A^ - (SUM A)2/N 
STANDARD DEVIATION = V 

^ N - 1 

where SUM A = sum of all data points in array A 

SUM A^ = sum of the squares of all the data points 

N = number of data points; the number of elements of array A 

Write a main program to input data and a subroutine to perform a data validity 
check. If the number is negative or greater than 100, the subroutine displays an 
appropriate message and returns to the main program for more data entry. The mean 
and standard deviation are to be computed and displayed in a second subroutine. 

12. Write a subroutine for calculating compound interest using the formula 

/ R\NT 
A = P 1 + - 

\ n; 

where A = accumulated amount (principal plus interest) 
P = invested principal 

R = annual interest rate (in decimal notation) 
T = number of years 
N = number of times the interest is compounded each year. 



1 30 ch. 8 I subroutines 



Values for these variables are to be entered in the main program. Use the following 
values: P = $100, R = 0.05 (5%), T = 10 years, N = 1, 2, 4, 8, 16, 32, 64, 128, 
and 365 . Print a table of N and A. 

13. Write a subroutine to compute N factorial (N!). For example, 4 factorial (4!) equals 
4X3X2X1 =24. Input N in the main program, and output N! from the sub- 
routine. 

14. Write a subroutine to calculate e^ using the formula 

1! 2! 3! 4! 5! 

In the main program, input X and the number of desired terms from the infinite 
series. Use the subroutine of the previous problem to compute the factorial terms. 
The program to compute e'' will therefore include nested subroutines. 

15. Extend the program that computes e"" to include a convergence criterion. Instead of 
specifying the number of terms of the series that are to be included, have the sub- 
routine include as many terms as are required until the relative difference between 
successive terms is no more than some prespecified value C. The relative difference is 
the absolute value of the ratio of the previous term minus the current term divided 
by the current term. Input C in the main program, and write a subroutine to deter- 
mine whether the series has converged. The series has converged when the relative 
difference of successive terms is less than C. A typical value for C is 0.00001 . 
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9.1 BACKGROUND 



Graphic capabilities are quite important for educational, business, and recrea- 
tional purposes. We can, for example, graph equations and bar charts or 
create computer art. The functions that make it all possible control the cur- 
sor and give the programmer the flexibility of printing characters on the 
screen at specific locations. 

The cursor control instructions that have already been introduced are 
CLS, CLEAR, TAB(X), POS(X), and PRINT @. CLS clears the screen and 
moves the cursor along with the READY to the upper left corner of the 
screen. The CLS instruction can be part of the program. Upon its execution 
the screen is cleared and thus readied for subsequent output. The CLEAR 
key clears the display and returns it to a 64 character per line format. The 
TAB(X) function moves the cursor to the specified position X on the current 
line. If X is greater than 63, the cursor is moved to subsequent lines. The 
TAB function is useful in tabulating data or graphing equations. The POS(X) 
function returns a number from to 63, indicating the current cursor posi- 
tion on the screen. The POS function can, for example, be used in conjunc- 
tion with the TAB function to space data evenly across the screen. The 
PRINT @ statement specifies exactly where on the screen the display is to 
appear. The specified location is a number between and 1023. It corre- 
sponds to the 1024 (16 X 64) available print positions on the screen. 

The CLS, TAB, POS, and PRINT @ statements' are most effective in for- 
matting output, especially for reports. However, they are not quite as effec- 
tive for plotting graphs or generating computer art. These instructions rely 
on a screen grid of 1024 print positions: 16 lines with 64 characters per line. 
This may be too crude and does not offer sufficient resolution. There are 
other graphic statements that offer a finer grid on the screen. 



9.2 GRAPHING WITH SET{X,Y) 



In graphing, we use a grid consisting of 128 points horizontally and 48 lines 
vertically. This grid of 6144 print positions offers the programmer a fine 
network of points. Each of these points can be addressed. 

The SET (X,Y) function places a small rectangular block at position 
(X,Y) on the screen. X is the horizontal position through 127 and Y the 
vertical position through 47. X and Y can be numbers or expressions but 
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must be nonnegative. Location 0,0 is at the top left corner of the screen and 
127,47 is at the bottom right corner. 



SET (0,0)11 



SET (0,47) 




SET (127,0) 



SET (127,47) 



SET(X,Y) may be used in the immediate mode and in the programming 
mode. Type in 

SET '::20.. 25 > 

The computer's response is a small rectangular point appearing at X = 20 
and Y = 25. Similarly, we can graph a point in the programming mode at 
X = 20and Y = 35: 

10 SET<£0.. 35::' 
RUN 

This short program yields an additional point on the screen directly be- 
neath the first point. The two points are separated by 10 vertical graph 
positions. 

When graphing, it is usually desirable to remove all clutter from the 
screen including the READY. The following short program accomplishes 
this. 



COMMENTS 

10 CLS _ Clear the screen. 

20 bET<20.. j::5::' One point is plotted at X = 20, Y 

30 GOTO J0 Remain in an infinite loop. 



35. 



Line 30 represents a new programming trick. Upon execution of the pro- 
gram, the computer is hung up at hne 30. The purpose of this maneuver is to 
suppress the READY from appearing on the screen at the end of the execu- 
tion. We escape this hangup and obtain the READY by pressing the BREAK 
key. Graphing with the TAB and PRINT @ instructions permits use of any 
characters to denote points on the graph. The SET statement, in contrast, 
always plots with small rectangles. The fine grid accessible with SET instruc- 
tions makes it possible to plot points so close to each other that they form 
hues. Compare, for example, 



10 CLS 




20 FOR X=0 TO 10: PRINT TAB < iK > X.; : 


NEXT X 


25 PRINT 




30 FOR :--:=0 TO 30; PRINT lf\B<.>\>"y." , 


: NEXT X 


40 FOR :>-:=0 TO 60; SET<K. l©::- ; NEXT 


X 


50 GOTO 50 




RUN 




1 2 3 4 5 6 7 S 9 10 




x:>=::kxxxx:kxxx>=:xxx::::xxxxxxxxxxxxxxx 
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To escape press the BREAK key. The first two Hnes of output were pro- 
duced with the TAB function and the third using the SET statement. The 
SET displayed an actual line. To terminate execution, press BREAK. 



REMEMBER: X and Y in SET(X,Y) cannot be negative. 

X may be greater or equal to and less or equal to 127. 

Y may be greater or equal to and less or equal to 47. 
X = is along the left edge of the screen. 

Y = is along the top of the screen. 






Example: Graph of Degrees Fahrenheit and Celsius 

We wish to graph degrees Celsius versus degrees Fahrenheit. This graph will be a line that 
can be used to look up corresponding temperatures in the two temperature scales. The 
relationship to be plotted is 



C=-(F-32) 
9 

where C and F are temperatures in the Celsius and Fahrenheh scales, respectively. 

COMMENTS 



10 CLb 

20 FOR F=32 TO 86 

3. C = 5 * < F - 1 2 > / 9 

42 V=C 

50 SET -ex.. v:.' 
60 ne:kt f 

70 GOTO 70 



RUN 



Range of °F is 32 to 86, a total of 
55 points on the graph. 

The temperature conversion for- 
mula. 

Without lines 32 and 42, line 50 
would beSET(F,C). 

Prevent the READY from appear- 
ing. 

See Figure 9.1 , version (a). 



Execute the program and observe the shape of the graph. It is a line that starts at the 
top left corner of the screen at F = 32 degrees Fahrenheit and C = degrees Celsius. The 




°F = 86- 
°C = 30 




X = 



130 ( 


^ 


124 




M8 




112 
i 

16 
1 


°F = 
°C = 


J 10 20 _■ 




40 50 60 70 80 F 



Version (a) 



Version (b) Version (c) 

FIGURE 9.1 Several versions of the degrees Fahrenheit-Celsius graph. 
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line then progresses downward and to the right. The last point corresponds to F = 86 
degrees Fahrenheit and C = 30 degrees Celsius. The graph is shown in Figure 9.1, version 
(a). 

Normally, graphs are plotted with increasing values of Y in the upward direction. The 
screen of the TRS-80 is not laid out that way. The grid on the screen has Y increasing 
downward. We can overcome this by subtracting the computed value of C from 30. We 
insert line 40 : 

49 C:=3;0-C 

The value of C computed in hne 30 is recomputed in Hne 40. For example, if C = 
in line 30, it will be recomputed in line 40 as C = 30. C = 30 instead of C = is then 
graphed. Line 40 has the effect of starting the Y-axis at the bottom of the screen and 
pointing upward. Version (b) of Figure 9.1 shows an execution of the program with 
X = 32 degrees Fahrenheit and Y = degrees Celsius now at the bottom left of the 
screen. 

Finally, we modify the program to draw and label the axes. The axes are labeled with 
numbers in lines 1 1 to 14. Then the Y-axis is drawn in Une 16 and dotted with markers in 
line 17. The X-axis is drawn in line 18 , and the markers are placed along the X-axis in line 
1 9 . In line 20 we expand the range of the graph by including degrees Fahrenheit from 12 
to 86. A flowchart of the program is shown in Figure 9.2. 



10 

11 

12 
13 
14 



PRINT 
PRIh4T 
PRINT 
PRINT 



@ 1. "30 C" 
©387.. "12" : 
© 704.. " 
& 77ei.. "-6" 



: PRINT e 131. "24' 
PRINT I? 515. "6" 
10 20 40 



PRINT @ 259.. "18" 



50 



60 



70 



80 F' 





( START J 


Program Line Nu 


\ 




\ 


DRAW AXES; MARK 
.AND LABEL AXES 


/ (11) -(19 


* 




1 F 




12 TO 86 


(20) - (60) 








\ 


i 






COMPUTE C 


(30) 




" ' 




. 


X=F 

C=30-C 

Y=C 


(32) - (42) 




i 




\ 


TURN ON BLOCK 

^ AT (x,Y) y 


^ (50) 




• 


1 

r 






' 




( ST( 


" ) 


(70) 



FIGURE 9.2 Conversion of degrees Fahrenheit to degrees Celsius- final version. 



135 sec. 9.2 I graphing with SET (X, Yj 



, — — — i^a\ 



16 ;k=£i; for V=ei TO 40: SET<X. V::- : NEXT V 

17 :K=1: for V=ei to 40 STEP 3: SETclX.. V> : NEXT V 

18 V=30: FOR X=0 TO 86: SET<X.. V> : NEXT X 

19 v=29: FOR X=0 TO 86 STEP 5: SET<X.. V> : NEXT X 

20 FOR F=12 TO 86 
30 C=5*<F-3:2> ■-■'£' 
32 X=F 

40 C.=30-C 
42 't'=C 
50 SET<X. V> 
60 NEXT F 
70 GOTO 70 

Execution of this program yields version (c) in Figure 9.1 . The markers are every five 
plot positions along the X-axis. The corresponding values of degrees Fahrenheit (F) and 
degrees Celsius (C) are displayed at every other marker. The scales differ for the two axes. 
There are three plot positions for each print position vertically. A multiple of three is 
therefore used. Horizontally, two plot positions correspond to one print position. 



Example: Bar Graph of a Frequency Count 

As another example of the use of the SET function, we write a program to generate a bar 
graph of the frequency of occurrence ofa2,3,4 . . .12 when two dice are thrown 100 
times. There are a total of 36 possible ways that two dice can turn up the 11 different 
outcomes of 2, 3, 4 . . . 12 points. We expect, for example, one thirty-sixth of all the 
throws to yield 2 points between the two dice. A flowchart of the program is shown in 
Figure 9 .3 . 

COMMENTS 

Throw the dice 100 times. 

One random number for each die. 

There are 1 1 outcomes numbered 

to 10. Sum up the frequencies. 
Print numbers along vertical axis: 

frequency of occurrence. 
Label the X-axis. 

Draw the Y-axis. 

Place markers on the Y-axis. 

Draw the X-axis. 



Draw the bar chart for each of the 
1 1 outcomes. 



Lines 80 to 95 draw the vertical bars of the bar chart. Line 80 sets up a loop to be 
executed 11 times, once per outcome. The plot position of the bar along the X-axis is 
computed in line 85. For the first outcome (K = 0, throwing a 2), X is 20. For each 
subsequent outcome, X increases by eight plot positions; that is, successive bars are eight 
plot positions apart. The height of each bar is the frequency of occurrence, A(K), of the 
Kth outcome. The bars are graphed upward from the X-axis and not down from the top 



10 


CLS: RANDOM 


20 


FOR K=l TO 100 


25 


I=RND';:6::'+RND'.:6> 


30 


fl<I-2:.'=fl<I-2>+l 


40 


NEXT K 


50 


PRINT © 3.. "24" : PRINT @ 131. "18" 


52 


PRINT (s 259.. "12" ; PRINT © :<87.. "6" 


60 


PRINT 15 583. "2345 6".i 


65 


PRINT" 7 8 9 1 2" 


7ei 


X=0: FOR V=0 TO 24: SET<X.. V::- 


71 


NEXT V 


72 


X=l: FOR V=0 TO 24 STEP 6: SET<X.. V> 


7~: 


NEXT V 


76 


V=24: FOR X=0 TO 120: SET<X.. V!:' 


77 


NEXT X 


80 


FOR K=0 TO 10 


85 


X=20-t-8*K 


90 


FOR V=24-fl«.-:K> TO 24: SETCX.. V::- 


91 


NEXT V 


95 


NEXT K 
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( START J 



1 TO 100 



I. 



THROW 2 DICE 
= TOTAL POINTS 



Program Line Numbers 

(20)-(40) 
(25) 



INCREMENT ELEMENT IN 

FREQUENCY OF OCCURRENCE 

ARRAYA 



\ DRAW, MARK AND / 
\ LABEL AXES / 

1__ 



OTO 10 



X=20+8»K 

HZ. 



Y 



24-A(K) TO 24 
\ 

\ SET(X,Y) / 



(30) 

(50)-(77) 

(80)-(95) 
(85) 

(90)-(91) 
(90) 



CjiO 



FIGURE 9.3 Bar graph of a frequency count. 

of the screen. Therefore, the bar corresponding to a frequency of occurrence A(K) is 
drawn from Y = 24 - A(K) down to Y = 24 (onto the X-axis). 
We now execute the program. 

RUN 



24 



i 12 



il 






Hi 



2345678901 



The bar graph verifies our expectations: the seven is tossed most frequently. In this ex- 
ample of 100 tosses of two dice, the seven occurred 21 times. The least frequent tosses 
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are the two and the twelve, each of which occurred 4 times. Note, the outcomes of tossing 
10, 11, and 12 are labeled as 0, 1 , and 2 respectively along the X-axis of the bar graph. Do 
you expect the same frequencies to occur if we rerun the program and simulate 100 more 
tosses? 



9.3 OTHER GRAPHICS FUNCTIONS 



The RESET{X,Y) and POINT(X,Y) are two more functions that enhance the 
graphics capabilities of the TRS-80. The RESET function turns off a graphics 
block at the location specified by the coordinates X and Y. As with the SET 
function, X and Y must be nonnegative and be constants or expressions. In 
general, the integer portion of X and Y specifies the coordinates to be 
graphed. 

COMMENTS 

SET':ieei.. 4ei> Graph a single point. 

RESET '.: ±00.. 40 > Erase that point. 

The POINT(X,Y) function examines the graph location (X,Y) and checks 
whether it has been SET before. If the location (X,Y) has been SET (is on), 
POINT(X,Y) takes on the value -1. If the location (X,Y) has not been SET 
before, that is, if the location is off, the POINT{X,Y) function returns a 0. 

COMMENTS 

SET -.: 100.. 40 > Graph the point. 

PR I NT PO I NT '.. 100.. 40 > Check if { 1 00,40) has been SET. 

-1 Yes, it has been SET. 

RESET'.: 100.. 40 > Erase the point (100,40). 

PRINT POINT'.; 100.. 40:;' The point (100,40) is no longer 
SET. 



%0^ 



Example: Random Walk 



We visualize a mouse moving along in an open area. The mouse makes steps of the same 
length with equal probability in the forward and backward directions as well as to either 
side. The question is, what is the mouse's path if it never steps twice on the same location? 
This restriction may cause the mouse to be trapped when it finds itself surrounded by 
locations previously occupied. We simulate the random walk on the screen and start the 
mouse off at X = 64, Y = 20. When it reaches the edge of the screen (X = 0, or 
X = 127, or Y = 0, or Y = 47), the walk ends successfully. A flowchart of the program 
is shown in Figure 9.4. Corresponding line numbers of the program are shown in the 
flowchart. 

10 ON ERROR GOTO S0 

11 CLS: RRND011 

12 K=64 : 't-20 : K=0 

15 seT'.::k.. v:.' 
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( START J 



X=64: Y=20; K=0 



(12) 



ON ERROR PRINT ATEDGE 
"DONE";K;"STEPS" 



(10) ^(80) 



(5i: 



X=X-2 



(4i; 



Y=Y+2 



\ SET(X, Y)~7 (15) 
(16) 



K=K+1 



i 



Y=Y-2 



r\ 



.OFF 



GENERATE RANDOM NUMBERS 1-4 

E 



(17)>, 



(2i; 



/^V^ 



OFF 




(31) 



PRINT 

"STUCK AFTER"; 

K; "STEPS" 



( STOP J 



FIGURE 9.4 Random walk. 



16 K=K+1 

17' Z=RND':4> 

18 ON Z GOTO 2£i.. 18.. 40 .■ 58 

20 IF P0INT'::K.. V-2:.' THEN 60 

21 V=V-2: GOTO 15 

30 IF P0INT<K+2. V;- THEN 60 

31 ;K=K+2 : GOTO 15 

40 IF P0INT'.::K.. V+2::' then 60 

41 't'=V+2: goto 15 

50 IF P0INT<:K-2.. V> THEN 60 

51 :>:;=:>^:-2: goto 15 

60 if p0int':;::-:;+2.. v> and p0int';:x-2.. v::- and pointcx. v+2::' and 

P0INT<K.. V-2> THEN PRINT f$ 8.. "STUCK".; K : GOTO 60 
70 GOTO 17 
80 PRINT I? 0.. "DONE".iK; GOTO 88 
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RUN 
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EDGE OF SCREEN 
t^ REACHED 



DONE 26 



/ 



26 STEPS TO 
REACH EDGE 



II 
I 
II 

nil 

mil ,^,„^ 

■ 1 1"^ START 
■" HERE 

The random walk starts out at X = 64 and Y = 20 (lines 12 to 15). We then gen- 
erate random numbers in the range 1 through 4 (line 17). Random numbers 1,2, 3, and 
4 correspond, respectively, to a forward (up) step, a step to the right, a backward (down) 
step, and a step to the left. Each step in the simulation corresponds to a jump of two 
blocks on the screen. In line 18, depending on the value of the random number Z, execu- 
tion transfers to line 20, 30, 40, or 50. The POINT(X,Y) function is used to detect 
whether a location to which the mouse is about to move has previously been occupied. If 
that position is available, {POINT(X,Y)=0), then the step is taken by transferring to line 
15. If the position is not available, a new random number needs to be generated in line 
17. Butbefore generating the new number it is necessary to check if the mouse is trapped. 
The PO I NT function is used in line 60 to check if there are any previously unoccupied 
locations either above, below, or to either side of the present position of the mouse. If 
the mouse is trapped, an appropriate message is displayed at the corner of the screen; 
otherwise, a new random number is generated in line 17 and the process of checking 
repeats. 

The random walk is successfully completed when the mouse is at the screen's edge or 
attempts to go beyond. When the arguments X and Y in SET and POINT exceed their 
permissible limits, an error occurs. The occurrence of the error signals that the walk is 
complete. We take advantage of this feature and use the ON ERROR GO TO statement 
in Hne 10 to transfer to Une 80 in the event of an error. Line 80 displays the message 
"DONE" along with the total number of steps taken to complete the walk. 

Type in the program and observe the movements of the mouse. The motion can be 
slowed by inserting a delay prior to turning on the graphic block in line 15. Such a delay 
may consist of a dummy FOR-NEXT loop. Another possible variation is to change the 
jump size (presently at 2) to 1 or 3 or more. All lines containing the expressions X + 2, 
X - 2, Y + 2, or Y - 2 would have to be modified accordingly. In the process of exe- 
cuting the program, some unique graphic patterns may develop. 



1. Before executing the following instructions, fill in what you anticipate the display 
will be. Add an explanation for any error you make. 

Instruction Anticipated Display Display 

a. PRINT TflB<ie>10 

b. PRINT C" 10.. 10 

c. PRINT POS<10::' 
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Instruction Anticipated Display Display 

d. PRINT TRB'.:i0:-' POSdS) 

e. CLS 

f. SEKie.. ie> 

g. RESET (10.. 10) . 

h. 10 GOTO 10 

RUN . ^ 

i. BREAK 

j. 10 SET'::0.. 0> 



20 IF POINT'.:©.. 0> THEN PR I NT "ON' 
ELSE PRINT "OFF" 



RUN 

k. 10 RESET <0..0> . 

RUN , . - 

1. SET (10. 5.. 10. b> 

m. RESET'.; 10.. 10. 1) 

n. SET 'i 10.. 10 > 

o. POINT ':;i0.. 10:.' 

p. PRINT POINT'.: 10.. 10:.' 

2. What displays do the following programs produce? 

a. 10 CLS : X=0 

20 FOR 't'=0 to 47: SETO=;.. V::- : NEXT V: GOTO 2© 

b. 110 FOR ;K=1 to 125 
120 FOR V=l TO 45 

130 SET ';::=•=:.. v:^ 

140 NEXT v.. ':■< 

150 V=RNC"::23.:.' : X=RND'::63.:> 

160 RESET 'CX.. W'> 

170 RESET-:: '::63:-X::' +61.. V::- 

180 RESET '^X.. '.:23-V::'+23.::' 

190 RESET •:: i 65.-X ::< +63. ::' .- •■: 23-V ::' +21 ::■ 

200 GOTO 150 

3. a. Write a program to draw a vertical line at X = 63 and a horizontal line at Y = 23. 
b. Add markers every 5 units along the X - axis and every 3 units along the 

Y - axis. 

4. Write a program to display a rectangle of width W and height H. The top left corner 
of the rectangle is to appear at X = A and Y = B. Input variables W, H, A, and B 
from the keyboard. How large may A, B, H, and W be? 

5. Generalize the rectangle program to display N rectangles. Generate W, H, A, and B 
randomly. Input N from the keyboard. Select W between 1 and 10, H between 1 and 
18, A between and 117, and B between and 29. 

6. Write a program to plot a conversion graph from inches to centimeters (1 inch = 2.54 
centimeters). Plot centimeters along the X-axis in the range to 100 centimeters. 
Along the vertical axis, place markers every 6 inches. How many such markers are 
required? 

7. Modify the random walk program of this chapter to eliminate the restriction that the 
same location cannot be occupied more than once. Run the program many times. 
Which edge of the screen does the mouse reach most frequently? 

8. Write a program to simulate the following random walk: A drunk is staggering along 
an alley. He or she takes 2-foot-long steps with equal probability in the forward and 
backward direction. On the average, how far does the drunk move from the starting 
point at midscreen in N steps? Let N = 10, 50, 100, 500. Assume the drunk moves 
along the X-axis. 
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9. Write a program to generate 100 random numbers in the range 1 to 10. Output a bar 
chart showing the frequency of occurrence of each of the 10 random numbers. Do 
you expect the frequencies to be the same? 

10. Write a program to plot two lines on the same graph. The equations to be graphed 
are Y = X and Y = 3X. Let X = 0, 1 , 2, . . . , 10. Place markers and label the axes. 



ahsptep 



ICIslPinp 



10.1 REVIEW 



The great power of the computer lies in its abihty to not only manipulate 
numeric information but also process character information. Numeric vari- 
ables are used to hold numeric quantities. These may be added, subtracted, 
multiplied, divided, evaluated in a function, or compared. Character informa- 
tion may consist of any combination of alphabetic and numeric characters, 
punctuation, and symbols. A string is a specific sequence of such characters. 
Strings do not enter into ordinary arithmetic operations. It certainly would 
make no sense to multiply the name of a person by ten or take its square 
root. However, we may want to process the name. In earlier chapters we 
have learned how to specify string variables, how to input and output them, 
how to compare them, and even how to "add" them. Addition of strings is 
called concatenation and refers to the process of appending one string to 
anothet. It is not an arithmetic addition. String variables differ from numeric 
variables in that they have a $ symbol as the last character of the name. The 
following sequence of instructions reviews string manipulations. 



fl*="BIN" 

PRINT fit 

BIN 

B*'::i:.' = "GO" 

PRINT R*+B*'::i.":' 

B I NGO 

PRINT fl*=B*'::i::' 



PRINT fl*<B*'::i:;' 
-1 

10 INPUT "VOUR NfiME".:N* 

RUN 

VOUR NAME? BOB BfiSIC 

RUN 

VOUR NAME? BRSIC BOB 

?E:-aRR IGNORED 

PRINT N* 

BASIC 



COMMENTS 

Specify the string variable A$. 
"BIN" is a string constant. 
Variable A$ is displayed. 
String variables may be subscripted. 
The two string variables are con- 
catenated. 

The two string variables are com- 
pared. They are unequal. 

Alphabetically, "BIN" is before 
(less than) "GO". 

A one-line program to input your 

name. 

Request execution. 
Your entry. 

Request another execution. 
The string you enter now contains 

a comma; an error occurs; you 

need " " around entry. 
Only the part of the name prior to 

the comma is stored. 
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The last example indicates that a string constant must be enclosed in 
quotes when entered as INPUT if it contains a comma. Colons or leading 
blanks also require the quotes. The same rule regarding commas, colons, and 
leading blanks applies to INPUT # and READ-DATA statements. 

10.2 ASCII CODES AND RELATED FUNCTIONS (ASC and CHR$) 

Two strings can be compared to determine which string variable or string 
constant is alphabetically closer to A. The characters are compared one at a 
time from left to right. Actually, the ASCII code of each character is com- 
pared. ASCII is short for American Standard Code for Information Inter- 
change. It is a convention for identifying each character by a number. To 
perform operations on strings, this code is used within the programming 
language to designate the various alphanumeric characters. There are a total 
of 128 codes dealing with alphanumeric characters and an additional 127 
codes (total of 255 codes) for the TAB function and for graphics. 

A list of the ASCII codes and their usage is given in Table 10.1, which 
shows for each ASCII code the corresponding keyboard key and the corre- 
sponding character that it displays on the screen. For example, the code 65 
corresponds to the letter A on the keyboard. Code 65 also displays the letter 
A on the screen. On the other hand, the ASCII code 1 corresponds to the 
BREAK key on the keyboard, while on the screen it produces no display. 
The most common codes may be summarized as follows: 



ASCII Code Keyboard and 

Number Screen Display 



48-57 Digits to 9 

65-90 Letters A, B, . . . , Z 

129-191 Graphics symbols 



The ASC( "string") function returns the ASCII code of the first character 
of the "string." The "string" is the argument and must appear within the 
parentheses. It may be a string constant or a string variable. The CHR$ (ex- 
pression) function returns a one-character string corresponding to the ASCII 
code specified by the expression. The argument must be numerical and must 
be a constant, a variable, or an expression in the range to 255. The ASC 
and CHR$ functions perform opposite operations and are illustrated in the 
following examples : 

COMMENTS 

PRINT flSC-:: "R" > Display the ASCII code of letter A. 

65 ASCI I code of letter A is 65. 

PRINT RSCC'flB":.' Display the ASCII code of 'AB". 

65 Only ASCII code of first letter is 

displayed. 

PRINT RSC'.: "0" ::• Display ASCII code of digit 0. 

48 It is 48. 

PRINT RSC'.: " " > Display ASCI I code of a blank. 

32 It is 32. 



TABLE 10.1 ASCII codes 



ASCII 


Keyboard 


Screen 


ASCII 


Keyboard 


Screen 




Code 


Key 


Display 


Code 


Key 


Display 






1 


None 
BREAK (also 


None 
None 


58 
59 










SHIFT BREAK) 




60 


< 


< 




2-7 


None 


None 


61 


= 


= 




8 


<- 


Backspace & Erase 


62 


> 


> 




9 


-^ 


None 


63 


9 


7 




10 


I 


Carriage Return 


64 


@ 


@ 




11 


None 


Carriage Return 










12 


None 


Carriage Return 


65 


A 


A 




13 


ENTER (also 


Carriage Return 


66 


B 


B 






SHIFT ENTER) 




67 


C 


C 




14 


None 


Turn on cursor 


68 


D 


D 




15 


None 


Turn off cursor 


69 


E 


E 




16-22 


None 


None 


70 


F 


F 




23 


None 


Convert to 


71 


G 


G 








expanded print 


72 


H 


H 




24 


SHIFT <- 


Backspace cursor 


73 


I 


I 




25 


SHIFT -> 


Forward space 


74 


J 


J 








cursor 


75 


K 


K 




26 


SHIFT I 


Linefeed -l- 


76 


L 


L 




27 


SHIFT t 


Linefeed t 


77 


M 


M 




28 


None 


Cursor to position 


78 


N 


N 








(0,0); convert to 


79 














regular print 


80 


P 


P 




29 


None 


Cursor to be- 


81 


Q 


Q 








ginning of line 


82 


R 


R 




30 


None 


Erase to end of 


83 


S 


S 








line 


84 


T 


T 




31 


CLEAR (also 


Clear to end of 


85 


U 


U 






SHIFT CLEAR) 


frame 


86 

87 


V 

w 


V 

w 




32 


Space Bar 


Space 


88 


X 


X 




33 


I 


I 


89 


Y 


Y 




34 


// 


" 


90 


Z 


z 




35 


# 


# 










36 


$ 


$ 


91 


t 


tor[ 




37 


% 


% 


92 


None 


I 




38 


& 


& 


93 


None 


<- 




39 


1 


1 


94 


None 


-> 




40 


( 


( 


95 


None 


_- (Underline) 




41 


) 


) 










42 


* 


* 


96 


SHIFT @ 


@ (Lower case if available) 




43 


+ 


+ 


97-122 


SHIFT A- 






44 


, 


, 




SHIFT Z 


Lower case A-Z (if available); | 


45 


- 


- 






otherwise uppercase 




46 














47 


/ 


/ 


123 
124 


None 
None 


t 
1 




48 








125 


None 


<- 




49 


1 


1 


126 


None 


-> 




50 


2 


2 


127 


None 


— (Underline) 




51 


3 


3 


128 


None 


Space 




52 


4 


4 










53 


5 


5 


129-191 


None 


Graphics blocks 




54 


6 


6 


192-255 


None 


TAB(X)forX = 0, 1,. . . , 


63, 


55 


7 


7 






respectively 




56 


8 


8 










57 


9 


9 
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PRINT C:HR*<65> Display the symbol corresponding 

fl to code 65. It is letter A. 

PRINT CHRtCflSC'^ "ft" :;• > CHR$ and ASC have opposite func- 

Fi tions. 

PR I NT flSC < CHR* •:: 65 ;■ > 
65 

The following program displays and performs the function of all the 
ASCII codes. Even though a delay has been incorporated into the program, 
you may wish to stop and freeze the display at any time. To stop the execu- 
tion (without a BREAK), enter SHIFT @. To continue from where you left 
off, press any key (except the SHIFT and BREAK keys). Compare Table 
10.1 to the screen's display during execution. 

COMMENTS 

10 REM DISPLAY ASCII CODES AND FUNCTIONS 

20 CLS Print code number and its screen 

30 FOR X=0 TO 255: PRINT X.i CHR*<X::'. display. 

40 FOR 1=1 TO 150: NEXT I Dummy loop for slowdown. 

50 ne:«:t x 

The next program decodes a message using the CHR$ function. 

COMMENTS 

10 READ K 

20 CjATA 65.. 32.. 78.. 73-.. '&€f^ SB, 76.. 65;. 32.. 73.- 83.» 32.. 72.- 65.. 76.. 70^ 32.- 65.. 32^ &&.' 89.. 84.- 69 

30 PRINT CHR*'::X>.: 

40 GOTO 10 An infinite loop; eventually there 

will be no more data to read. 
RUN 

A NIBBLE IS HALF A BVTE 
?0D ERROR IN 10 Out-of-data error in line 10. 






Example: Maintaining a Status Message on the Screen 

When lengthy and time-consuming internal computations are taking place, it is often a 
good idea to maintain a status message on the screen. This message indicates that the sys- 
tem is busy and perhaps gives some idea how close to completion it is. In this example we 
maintain a steady display of a loop counter during loop processing. 

1© CLS: PRINT CHR*':;26::' 

2© FOR 1=1 TO 100 

30 PRINT CHR*..;27::'.; TAB';:i5::'"N0W PROCESSING LOOP"j I; "OF 100" 

40 REM LOOP PROCESSING BEGINS 

50 FOR D=l TO 200: NEXT D 

99 NEXT I 

Line 10 clears the screen and moves the cursor down from the top of the screen. In line 
30, CHR$(27) moves the cursor up to the output line and TAB(15) centers the message. 
Line 50 is a loop that delays the display. When this routine is used in conjunction with 
loop processing, the loop of line 50 would not be included. What happens if the CHR$(27) 
is not included in line 30? How about if CHR$(26) is omitted in line 10? Can you explain 
the resulting displays? 
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REMEMBER: The ASCand CHR$ functions complement each other; ASC{CHR$(65)) 
= 65 and similarly CHR$(ASC( "A")) = "A". 



10.3 CHARACTER MANIPULATION FUNCTIONS 
(LEN, LEFT$, R!GHT$, MID$) 



In this section we introduce several functions that may be used to analyze 
strings. The LEN( "string") function returns the number of characters in- 
cluded in a string. The argument can be a string constant, a string variable, or 
an expression. Since a string may be up to 255 characters in length, LEN 
("string") is a number between and 255 inclusive. The LEFT$("string",N) 
function returns the first N characters of the string. The string in the argu- 
ment may be a string constant, variable, or expression, and N may be any 
numeric constant, variable, or expression between and 255. The function 
RIGHT$("string",N) operates like the function LEFT$("string",N) but 
returns the last N characters of the string. The MID$("string",M,N) function 
returns a portion of "string" starting with the Mth position and containing N 
characters. For example, PRINT MID${"ABCD",2,3) displays the string 
BCD. It starts with the second character of the string ABCD and is three 
characters long. 



R* = "TRS-Se" 
PRINT LEN'::fl*> 

ti 
PRINT LEFTiCfi*.. S!:- 
TRS 
PRINT RIGHT*';h*-.. 2;' 

80 
B*=LEFT4-':;R*-.. 7> 
PRINT B* 
TRS-S0 

PRINT LEN'::B*> 

s 

PRINT LEFT*'::R*-.. LEN' 
TRS-S0 



h* > 



PRINT riID*<R*.. 2.. 5.> 

PR I r-JT M I Dt- ■:: R*-.. LEN •: R* > .. 1 > 





COMMENTS 

Specify string A$. 

There are six characters in A$. 

The first three characters in A$ are 

displayed. 
The last two characters in A$ are 

displayed. 
The 7 is acceptable even though it 

exceeds LEN(A$). 



Is B$ = 6 or 7 characters in length? 
B$ has six characters. 
LEN function may be an argument 
for another function. 

Select three characters from A$, 
starting with the second. 
Display the last character in A$. 



The LEN and LEFT$ functions are used in the following program to 
create a unique display. 



10 R*="TRS-S0" 
20 FOR M=l TO LENCfl*) 
30 PRINT LEFT*'::R*.. M> 
40 NEXT M 



RUN 

T 

TR 

TRS 

TRS- 

TRS-8 

TRS-S0 
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The number of characters displayed on each Hne of output is controlled by 
M. M increases from 1 to 6; the length of the string "TRS-80" is 6. 

REMEMBER: The functions LEFTS, MID$, and RIGHTS have strings as arguments 
and are used to isolate specific characters within the strings. 



t-? 



Example: Number of Words in a Text 



In this program we input a text and check to determine how many words it contains. The 
number of blanks in a text is a direct measure of the words. The number of words equals 
the number of blanks plus 1 . The text can be no longer than 255 characters. The CLEAR 
600 reserves 600 bytes for string storage. 

10 CLEAR 600 : CLS : COUNT^© 

20 INPUT "VOUR TEXT " ; H$ 

30 FOR K=l TO LEN'..H*> 

40 IF MID*'.fl*. K.. 1> <>" "THEN 69 

5 C U U N T = C U N T + 1 

60 NEftT K: 

70 PRINT "NUi'iBER OF WORDS".; COUNT+l 

RUN 

VOUR TEXT? TO BE OR NOT TO BE 

NUMBER OF WORDS 6 

The number of characters in the entire text, LEN(A$), determines the range of the loop 
(lines 30 to 60). The text's characters are compared one at a time to the blank " " in 
line 40. If a character equals a blank, the counter COUNT is incremented by 1 . Enter the 
program and try it on your favorite phrase. Does the program work for a text consisting 
of a single word? 



P? 



Example: Palindromes 



A paHndrome is a word that reads the same forward or backward, for example, OTTO or 
MADAM. The following program determines whether a specific string is a paUndrome. 

10 CLERR 1000 

20 INPUT "VOUR TEJ^T"jFI* 

30 FOR K=LEN*>::fi*> TO 1 STEP -1 

40 B*=B*+MID*'::fi*.. K. 1> 

50 NEXT K 

70 IF fl*=B* THEN PRINT "IT IS fl PALINDROME": END 

80 PRINT "IT IS NOT fi PRLINDROtlE" 

RUN 

VOUR TEXT? riflDRN 

IT IS R PRLINDROriE 

The loop of lines 30 to 50 rearranges the text A$ and forms string B$. This new string is 
string A$ backward. If A$ equals B$, the text is a palindrome, and otherwise it is not. 
What happens if the text we input in line 20 consists of a single character? Try it. Can 
you think of any palindromes? 
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Example: Coding a Message 



To code a message, we add a certain number to the ASCII value of each of the characters 
of the message. This added value is the code. It is entered as part of the INPUT and is 
called N. 

10 CLEAR 1000 

20 INPUT "VOUR CODE VRLUE"j N 

30 INPUT "VOUR MESSAGE ".ifl* 

40 FOR K=l TO LEN<fl*> 

50 REM ISOLATE THE KTH CHARACTER 

55 b*=mid*<:a*, K. 1> 

60 REM ADD N TO THE ASCII CODE OF THE KTH CHARACTER 

65 B=N+ASC<B*> 

70 REM CONCATENATE THE CODED CHARACTER TO THE CODED MESSAGE 

75 CODE*=CODE*+CHR*<B> 

80 NEXT K 

90 PRINT "THE CODED MESSAGE: "; CODE* 

RUN 

VOUR CODE VALUE? 1 

THE MESSAGE? ABC 

THE CODED MESSAGE: BCD 

This program works fine as long as the sum of the ASCII codes of the characters and N 
does not exceed 255 in line 65. If N is very large or if characters with high ASCII code 
values are used, it may be necessary to test B. If B exceeds 255, then specify it as 
B = B - 255. 

Can you write a similar program to accept a coded message along with its code value 
and output the decoded message? 



10.4 OTHER STRING FUNCTIONS 



The STRING$(N,"character") returns a string consisting of N identical char- 
acters. N is a numeric constant, variable, or expression, and the character can 
be any alphanumeric character or an ASCII code number. The STRINGS 
function may be used effectively to prepare graphic displays and bar graphs. 
The following examples illustrate the use of this function : 

COMMENTS 

PRINT STRINQ^CS.. "A"> N = 5; the character is an A. 
HHHHA 

PRINT STRING*<5. 65::' N = 5; the character is the ASCII 
FlPiPIFIA code 65, which is the letter A. 

PRINT STRINQ$<100. "A"> 

?0S ERROR An out-of-string space error occurs; 

CLEAR 100 is needed. 

The request for a string of 100 A's caused an error. When the computer is 
first turned on, a CLEAR 50 is automatically executed. The CLEAR n com- 
mand resets all numeric variables to zero and all string variables to null. In 
addition, this command reserves n bytes for string storage. A request of 100 
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A's exceeds 50, the limit set automatically when the computer is turned on. 
To avoid the OS error, we first execute CLEAR 100. 

The FRE( "string") function returns the amount of unused string storage 
space. The argument string is a dummy argument. Any string constant, vari- 
able, or expression can be used as a valid argument. 







COMMENTS 


PRINT FRE<"R"> 




When the computer is first turned 


50 




on, 50 bytes are reserved for 
strings. 


fl*=STRING*<30. ' 


"fi":J 


A$ is a string of 30 A'S. 


PRINT FRE<"B"> 




Any string is acceptable as an argu- 


20 




ment of FRE. 
20 bytes are now left (50 - 30 
= 20). 


CLEAR 300 




A$ is set to null and 300 bytes are 


PRINT LEN<fl*> 




now reserved. 







A$ is now a string of zero length. 


A*=STRINQ*':;S0. 


"R"> 


A$ is 80 characters in length. 



PRINT FRE<"C"> 

220 220 bytes remain unused. 

fl*=STRINQ*<3.00.. "R"> Illegal-Function-Call error. 
?FC ERROR A string cannot exceed 255 char- 

acters. 

The FREC'string") function is not to be confused with the MEM function, 
which returns the unused bytes in memory. 

The STR$( expression) converts a numeric expression or constant to a 
string. For example, if PI = 3.1415, then STR$(PI) equals the string 
" 3.1415". The leading blank is to allow space for a negative sign. Since 
STR$(PI) is a string constant, only string operations may be performed with 
it and no arithmetic operations. 

The function VAL( "string") returns the number represented by the char- 
acters of the argument string. For example, VAL("123") equals the numeric 
constant 123. The VAL and STR$ functions perform opposite operations. 

COMMENTS 

fl=123 

PR I NT STR* < 121 > Convert 1 23 to the string "1 23". 

123 123 is a string. 

PRINT STR*<123::'+1 Type-Mismatch error. 

?TM ERROR Cannot add 1 to a string. 

PRINT VflL<"123"::'+l VAL("1 23") is the number 123. 



124 123 + 1 = 124. 

B=VRL<::STR*<fl>> 
PRINT B=fl 



A and B are equal since VAL and 
STR$ perform inverse operations. 

PRINT LEN<STR*';-3>> The string "-3" consists of two 

2 characters. 

PR I NT LEN < STR* < 3 > > The 3 is positive and therefore has a 

2 leading blank; the string then has 

two characters. 



REMEMBER: The VAL and STR$ functions complement each other; VAL{STR$(7)] 
equals the number 7, and, similarly, STR${VAL("8")) equals the string "8". 
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Example: Underlining a Title 



The following program underlines all the no nb lank characters in a title. A flowchart is 
shown in Figure 10.1 . 

100 CLEAR 600 

105 I NPUT " WHRT I S VOUR TITLE".;!* 

110 CLS; N=0 

120 PRINT T* 

130 FOR K=l TO LEN'.:T*::' 

140 IF M I D* -:: T*.. K.. 1 ><::>" " THEN N=N+1 : GOTO 160 

150 QOSUB 200 

160 NEXT K 

170 REM LOOP COMPLETED 

180 GOSUB 200 

190 END 

200 REM SUBROUTINE TO UNDERLINE 

210 PRINT STRING^CN.. "-">.; 

220 PRINT " ".: 

23:0 N=0 

240 RETURN 

RUN 

NHRT IS VOUR TITLE? COMPUTERS ARE FOR KIDS 

COMPUTERS ARE FOR KIDS 



After the title is entered the screen is cleared. The title is displayed and the underlining 
appears on a separate line single spaced below the title. Does the program work for a title 
consisting of a single character or a title consisting of several words each separated by 
several blanks? 

The program consists of a main program (lines 100 to 190) and a subroutine (Hnes 
200 to 240). In the main program we examine each character in the title. The counter N 
is incremented if the character is not a blank. Once a blank character is encountered in 
Hne 140, transfer is made to the subroutine, where N minus signs are printed to underHne 
N nonblank characters in the title. The STRINGS function is used for this purpose. Then 
a blank is printed to properly break the underUning of the title beneath the blank. Execu- 
tion subsequently returns to the main program within the loop at line 160. Each time 
transfer is made to the subroutine the nonblank characters between successive blanks are 
underlined. Once the loop is completed, transfer is made for the last time to the subrou- 
tine in line 180, and the last characters of the title are underlined. 



t4> 



Example: Binary-to-Decimal Conversion 



In this example we input a binary number consisting of zeros and ones. The computer 
then converts the binary number to its decimal equivalent. For example, the binary num- 
ber 1101 is converted as follows: 1101 = 1 X 2^ + 1 X 2^ + X 2^ + 1 X 2^ 
= 8+4 + + 1 = 13. So binary 1101 is equivalent to decimal 13. 

10 INPUT "BINARV NUMBER".; B* 

20 N=0: DEC=0 

20 FOR K=LEN'::B*> TO 1 STEP -1 

40 N=N+1 

50 D*=MID*<B*. K.. i:;- 
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( 

\ 


START ) 

INPUT / 
TITLE T$ / 


Program Line Numbers 
(105) 




N=0 




(110) 






* 








\ 


PRINT 
TITLE T$ 


/ 


(120) 




i 










K 






(130)-(160) 




K=1 TO LEN(T$) 








<^p<th CHARACTER IN^ 
T5RARIAMK? ^^ 


^YES 
> 


-" \ 




NOf 


>^14C 


) 


GOSUB 200 


(150) 




i 








^ 






SUBROUTINE 






1 N=N+1 


(140) 




UNDERLINE N 

CHARACTERS AND THEN 

PRINT 1 BLANK. 

LET N =0 














;200)-(240) 


^ 




i 








■ 


, 










REM 
LOOP COMPLETED 


(170) 






i 








GOSUB 200 




(180) 


( 


i 




) 




ST 


DP 




(190) 



FIGURE 10.1 Underlining a title. 

60 DEC=DEC+VflL<D*::'*2C <H-1> 

70 NEXT 

80 PRINT "DECIMAL EQUIVALENT".: DEC 

RUN 

BINARV NUMBER? 11 

DECIMAL EQUIVALENT 3 



The binary number is entered as a string of zeros and ones. Each character in the string, 
that is, each zero and each one, is converted to a number using the VAL function in line 
60. It is then muhiphed by the proper place value. The place values are 2°, 2\ 2^, and so 
on, for successive digits starting at the right end of the string B$. The sum in line 60 
yields the decimal equivalent DEC of the binary number B$. 



The INKEYS function is used to receive information, one character 
at a time, from the keyboard. The ENTER key need not be pressed to com- 
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plete the data entry. This is in contrast to entering data with the INPUT 
statement. With INKEY$ the single character is automatically processed 
once the key is pressed. It is, however, not displayed on the screen. When 
the INKEY$ is encountered, the keyboard is examined to determine if a key 
has been pressed. If no key has been pressed, the null character is assumed. 
The foHowing short program places a single character at the top corner of 
the screen. 

10 CLS 

20 PRINT e 0. INKEV*: GOTO 20 

We execute the program and notice that the character corresponding to 
whichever key we press appears on the screen. To stop execution, press 
BREAK to escape from the infinite loop in line 20. 
We now edit line 20 and take out the GOTO 20. 

10 CLS 

20 PRINT e 0. INKEV* 

When RUN is entered, the READY appears immediately, indicating comple- 
tion of execution. The INKEY$ needs to be placed within a loop so that the 
keyboard is repeatedly scanned for an entry. If it is not placed within a loop, 
as in the above edited version of the program, the keyboard is scanned only 
once. If by that time no entry has been made, INKEY$ is a null string. 

REMEMBER: The INKEY$ function makes it possible to enter data without pressing 
the ENTER key. ^ 






Example: Character String Entry Routine 

Any string up to 255 characters in length can be entered with this routine. There is no 
restriction on the type of characters entered; digits, letters, as well as symbols are permis- 
sible. Once the / character is entered the string is complete. The ENTER key need not be 
pressed. 

10 CLEAR 1000: CLS 

20 PRINT "ENTER RNV CHflRRCTER STRING" 

30 FOR 1=1 TO 255 

40 Q*=INKEV*; IF Q*:="" THEN 40 

50 IF Q*="/" THEN 70 ELSE fi*=fl*+Q* 

60 NEXT I 

70 PRINT: PRINT "THE STRING VOU ENTERED I'=." 

80 PRINT H* 

RUN 

ENTER RNV CHRRRCTER STRING 

THE STRING VOU ENTERED IS 

HE SAID "PLERSE DON'T ERT THE DRISIES" 

In this case we entered a string containing quotes and an apostrophe. They are all part of 
the string A$. 
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Example: Shoot the M's, A Video Game 



The INKEY$ function is particularly useful in writing programs to play video games. 
These games usually require quite sophisticated programming. Shoot the M's is a simple 
game for preschoolers. It requires no skill and only luck. The object of the game is to 
eliminate the M's from the screen by pressing the space bar. Once all the M's have disap- 
peared, press the BREAK key and PRINT L to find out how many shots it took. 

10 CLS: RRNDOM 

20 FOR K=6 TO 10 

30 PRINT @ 64*K+26.. "M M" 

40 NEXT K 

50 L=0 

60 Q*=INKEV*; IF Q*="" THEN 60 

70 L=L+1 

80 PRINT e RND':;i000::'.. Q* 

90 GOTO 60 

The loop of lines 20 to 40 displays on the screen a column consisting of five rows of the 
character string "M M". The counter L keeps track of the number of shots we take. Each 
shot is one INKEY$ entry, which equals the character string Q$. This entry is made by 
pressing the space bar. Q$ is therefore a blank character string. It is printed in hne 80 at a 
randomly determined print position. Eventually, the blanks replace all the M's and the 
game is over. At that point, press BREAK followed by PRINT L to display the number of 
shots taken to displace the M's. 






Example: Shoot the Duck 



This game is a more sophisticated video game that requires some skill. A duck moves 
across the top of the screen. A gun, located at the lower edge of the screen, is fired at the 
duck. The up arrow key activates the gun, and the message *BOOM* appears on the 
screen in the event of a liit . 

10 REM SHOOT THE DUCK 

11 CLS: PRINT ."INSTRUCTIONS" 

13 PRINT "UP ARROW KEV FIRES GUN" 

14 PRINT: PRINT "*.^*** GOOD LUCK >f:>f:**:+:" 

15 INPUT "PRESS 'ENTERS WHEN ReflDV"; Q* 

16 T*=CHR$ < 128 > +CHR* < 191 > +CHR$ < 191 > +CHR* < 176 > 

17 T*=T*+CHR* < 253 > +CHR* < 190 > +CHRf < 189 > +CHR* < 254 > 

18 T*=T*+CHR* < 142 > +CHR* <. 140 > +CHR* <. 255 > 

19 REM INITIALIZE POSITION OF GUN 

20 CLS: SET < 63. 47 > 

23 REM MOVE DUCK ACROSS SCREEN ALONG V=0 

24 REM VARIABLE T* IS THE DUCK 

25 FOR K=l TO 66: PRINT © K. T* 

26 REM CHECK FOR KEVBOARD ENTRY 
30 C*=INKEV*: IF C$="" THEN 50 

35 C=ASC<:C*> 

36 REM V IS V-POSITION OF BULLET 

37 REM BULLET IS AT X=63 

38 REM CHECK IF GUN JUST FIRED 

39 " AND BULLET NOT IN MOTION 

40 REM V IS SET TO 47 WHEN GUN IS FIRED 
42 IF V<=0 AND C=91 LET V=47 

50 SET < 63.. 47 > " SET GUN POSITION 
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59 REM CHECK IF BULLET IN MOTION 

60 IF V<=0 THEN 90 

70 REM BULLET IS RT POSITION <63. V> 
75 RESET < 63. V> : V=V-4 : IF V<=0 GOTO 90 

79 REM P0INT<63. V>=-1 WHEN BULLET HITS DUCK 

80 IF P0INT<63. V>=0 SETC63. V> : GOTO 90 

85 CLS: PRINT e K.. "*BOOM*" 

86 REM TIME DELflV FOR *BOOM>^ DISPLflV 

87 FOR L=l TO 250: NEXT L 

89 GOTO 20 

90 NEXT K: GOTO 25 

The program contains many REM statements that explain the code. In addition, the fol- 
lowing comments may be helpful: 

Lines 16 to 18: Variable T$ consists of several graphic characters that together 
assume the shape of a duck. 

Line 25: The duck moves one step at a time across the screen; the end of the FOR- 
NEXT loop is at line 90. As the duck moves across the screen (along Y = 0), its horizontal 
position is specified by the value of K. 

Line 75: The bullet moves straight up. Its vertical position Y therefore continuously 
changes as the value of Y decreases from 47 to 0. The horizontal position of the bullet is 
unchanged and equals the horizontal position of the gun at X = 63. The bullet's position 
is RESET before each move. Its path therefore appears as a sequence of dots and not as a 
line. 

Line 80: If the bullet reaches a position that is set by the presence of the duck, that 
is, for which POINT(63,Y) = -1, then the bullet is colliding with the duck and the mes- 
sage *BOOM* appears. 

Line 87: The time delay leaves the message *BOOM* on the screen for a short period 
of time. 

Line 89: The game starts over after the time delay of line 87. To stop execution, 
press BREAK. 

The game illustrates video game programming. Several refinements could be included 
to improve the game. The duck could be made to move back and forth, and a scoreboard 
could be added. The game may be more fun if the position of the gun is controlled by 
the player and if a timer were incorporated to score the number of hits within a specific 
time interval. 






Example: Etch-a-Sketch 



This popular children's toy is used to draw a pattern of Unes-a graphic display. We simu- 
late this toy on the computer. 

COMMENTS 

10 REM ETCH-fl-SKETCH 

15 X=63 ; V=23 : CLS The starting point is at mid-screen. 

20 ON ERROR GOTO SO 

29 REM BLINKING BLOCK 

I<0 RESETCX.. V>: SET-CX. V> A sequence of RESET and SET 

ji'5 RESET < X.. V> : SET<X. V> produces blinking. 

40 C*=INKEV*: IF C*="" THEN 30 The next move is entered. 

50 C=fiSC<:C*;' 

54 REM RIGHT fiRROW MOVE? ASCII code of right arrow key is 9; 
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55 IF C=9 LET X=:K+1 

59 REM LEFT ARROW MOVE? 

60 IF C=8 LET X=X-1 

64 REM UP ARROW MOVE? 

65 IF C=91 LET V=V-1 

69 REM DOWN ARROW MOVE? 

70 IF C=10 LET V=V+1 
75 SET<:>=;.. V> : GOTO 40 
80 REM ERROR ROUTINE 

84 REM AVOID GOING OFF SCREEN 

85 IF X>127 LET X=127 
90 IF X<0 LET K=0 

93 IF V;>47 LET V=47 
95 IF VC0 LET V=0 
98 RESUME 4© 



increment 1 position to right. 
ASCII code of left arrow key is 8; 

increment 1 position to left. 
ASCII code for up arrow key is 91 ; 

increment 1 position up. 
ASCII code for down arrow key is 

10; increment 1 position down. 
Draw line to new position. 

Remember, Y = is along top of 

screen. 
Do not allow X to exceed 127 or be 

less than 0. 
Do not allow Y to exceed 47 or be 

less than 0. 
To stop execution, press BREAK. 



EXERCISES 13 



The sketch starts out with a small blinking block at mid -screen (X = 63, Y = 23). From 
there, depending on which key is pressed, a line is drawn sideways, up, or down. The 
INKEY$ function is used in line 40 to specify the direction in which the line is to be 
drawn. The ASCII code of the key pressed is determined in line 50 and then tested in 
lines 55 to 70 to determine the direction in which the line is to proceed. The new line 
segment is drawn in line 75 using the SET function. The error routine (Hnes 85 to 98) 
ensures that execution is not interrupted when the cursor attempts to go off screen. 

There are several ways in which the program can be modified: the starting point of 
the sketch may be placed at a position other than mid-screen or larger line segments may 
be drawn. For example, it may be desirable to make the line segments in the right -left 
directions three times as large as the up-down segments. Another possibility is to intro- 
duce an additional key that will draw along the diagonal. This will give the "artist" added 
flexibility. Can you implement any of these changes? 



1. Before executing the instructions, fill in the anticipated display and compare it with 
the actual display. 





Instruction 


a. 


PRINT 


ASC'C'B"::' 


b. 


PRINT 


ASC 'v " BOV " ::• 


c. 


PRINT 


ASCt:5::' 


d. 


PRINT 


asc-'five::- 


e. 


PRINT 


ASC<"S"> 


f. 


PRINT 


Ascc" ":.' 


R- 


PRINT 


ASC<""::' 


h. 


PRINT 


CHR*<4S::' 


i. 


PRINT 


CHRIc:65> 


j. 


PRINT 


CHRt';:65-H32::' 


k. 


PRINT 


CHR*':; 94-^3:2::' 


1. 
m. 


PRINT 
CLEAR 


CHR*'::23.::' 


n. 


PRINT 


ASC'sCHR*'::70>::' 


0. 


PRINT 


CHR^-^ASC^-TRS" 



Anticipated Display 



Display 



p. Q*=CHR*'::3:4::' 

q. PRINT Q*+"TRS-S0"+Q* 
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2. When filling in the anticipated displays, be sure to account for leading and trailing 
blanks. 

Instruction Anticipated Display Display 

a. Q*="TO BE OR NOT TO BE" 



b. PRINT LEN<fl*> 

c. PRINT LEN<Q*> 

d. PRINT LEFT*<Q*.. 5> 

e. PRINT LEFT*<Q*.. OiJ 

f. PRINT LEFT*<Q4v20> 



PR I NT LEFT* < Q*, LEN <. Q* : 



h. PRINT RIGHT*<Q*v5> 

i. PRINT RIGHT*op.*, 5>+LEFT4<Q*v 5> 



3. Which of the following expressions are equivalent? Assume: 

M*= "I AH ERRLV" 
B* = "I AM LATE" 

a. PRINT LEFT^clfl*, 4::' 

b. PRINT r-IID*<fl*.. 6. i::. 

c. PRINT RIQHT*<fi*.. 1> 

d. PRINT LEFT*<B*. 5> 

e. PRINT fl* 

f. PRINT LEN'::fl*> 

g. PRINT LENCLEFT^CR*-. 4>> 
h. PRINT MIDfCB*.!. 4:;- 

i . PRINT M I D* < fl*. LEN '.. R* > , 1 > 

j. PRINT LEN<RIQHT*<:;&*. 4::'> 

k. PRINT LEN'sB*::- 

1. PR I NT M I D* < R I GHT* ■:; R*.. 6 > .. 6. 1 > 

m. PRINT LEFT*<B$.. 5>+RlGHT*<fl*v5> 

4. Instruction Anticipated Display Display 

a. PRINT FRE'.:"50'\;' 

b . PR I NT STR I NG* ■:: 46.. " - " .:. 

c. PR I NT STR I NG* C SO.. " - " ;.- 

d. PRINT STRING* ':.0.. "-"> ; 

e. PRINT STRING* •:; 40.. "■=> 

f. PRINT STRING*-:: 4. 5.. "-"> 



g. PRINT STRING*-:: 4.. "RBC"::- 



h. PRINT FRE-:"-":- 
i. CLERR 40ei 
j. PRINT FRE-.:"S":.- 

k. PRINT STRING*-:: 255.. 



1. PRINT STRING*-:: 255. "SSS' 



m. PRINT STRING*-;: 256.. "END"::- 



n. 


R*="FUN" 


0. 


PRINT FRE'.:"R*"::' 


P- 


PRINT t'lEM 


q- 


PRINT VflL'.:"12":>-12 


r. 


PRINT "R"+STR*-si::- 


s. 


PRINT LEN -: STR* < 123) 
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Instruction Anticipated Display Display 

t. PRINT LEN'.;STR*<-123.>> , 

u. PRINT 'v'RL<10> 

V. PRINT STR*<VRL'.. "i2"> 



W. 10 PRINT © 1000.. INKEV*: GOTO 10 
X. RUN 



5. What do the following programs accomplish? 

a. 10 FOR K=l TO s b 1© CLS ; K=65 

20 C.*=INKEV*: IF C*="" THEN 20 20 FOR fl=0 TO 2S 

30 T*=T*+C4; NEXT K ^0 FOR B=0 TO 61 

40 CLb ; PRINT iB 500.. T4 40 PRINT CHR* '.. K > .: 

50 GOTO 5ei 50 NEXT B 

60 K=K+1 
70 NEXT R 
80 GOTO S0 
C. 10 INPUT N 

20 PRINT N.i "COi'lPUTER".; CHR*':.RBS<SGN'::N-l::'*Sl>::' 
6. a. Write a program to input a text and output the number of E's occurring in the 
text. 

b. Modify the program of part a to output the number of times each vowel occurs in 
the text. 

c. Modify the program of part (a) to display the number of times the ending ING ap- 
pears in the text . 

7. Write a program to input a coded message along with its code value and output the 
decoded message. Before writing the program, review the example Coding a Message 
presented in this chapter. 

8. An imperfect palindrome is a statement that reads the same forward or backward 
after all nonalphabetic characters have been removed. Write a program to input a text 
and test if it is an imperfect palindrome. Check your program on 

MRDRM IN RDfll'i 

EGRD R BRSE TONE DENOTES fl BRD RGE 

Hint: Determine the ASCII code of each of the string's characters and test if it falls 
in the range 65 to 90 inclusive ; if it does not, the character is dropped since it is not a 
letter. 

9. Write a program to input the names of N different states and Hst them in a right- 
aligned format. For example, 

CONNECT I CLH 

RHODE ISLAND 

MR I NE 

MRSSflCHUSETTS 

NEW HfiMPSHIRE 

VERI'IONT 

Hint: Use the TAB and LEN functions in a PRINT statement. 

10. Determine the longest word in a sentence. 

11. Suppose the variable W$ is a character string containing only letters. Determine the 
number of letters in W$ that are also in "TOBY". 

12. Program the computer to play the game of BUZZ. In this game we count from 1 to 
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100, but for any number containing the digit 7, display BUZZ instead of displaying 
the number. For numbers that contain a 7 and are divisible by 7 display BUZZ BUZZ. 

13. Merge two lists of names that are in alphabetic order into a single Hst of names also in 
alphabetic order. 

14, Find every two-digit number that equals the sum of the squares of its digits. 
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The following table summarizes the Level II BASIC error messages and 
includes a brief description of their cause and corrective action. 



Error 


brror 
Code 


Message 


Number 


NF 


1 


SN 


2 


RG 


3 


OD 


4 


FC 


5 


OV 


6 


OM 


7 


UL 


8 


BS 


9 


DD 


10 


/o 


11 


ID 


12 


TM 


13 


OS 


14 


LS 


15 


ST 


16 


CN 


17 


NR 


18 


RW 


19 



Cause (Corrective Action) 



FOR statement missing, or I and K in NEXT l,K out of order. 

Add FOR statement, or delete NEXT statement. 
Syntax error. Incorrectly formed statement; for example, error 

in punctuation or unmatched parentheses. 
RETURN without GOSUB. GOSUB must be executed before 

RETURN. Delete RETURN statement or add a GOSUB 

statement. 
Out of data. Insufficient data in INPUT #or READ-DATA. 
Illegal use of a function. Adhere to the proper format of the 

function; for example, cannot take the square root of a nega- 
tive number. 
Overflow. Value exceeds allowable maximum; for example, an 

integer cannot exceed 32767. 
Out of memory. Memory capacity of the computer exceeded. 

Cut back on DIM, REM, and other statements. 
Undefined Hne. Reference made to a missing line number. Add 

the hne to which execution is to branch. 
Subscript out of range. Modify the DIM statement to include 

the desired subscript. 
An array is dimensioned twice. Specify array's DIM only once. 
Division by zero. Avoid zero in the denominator. 
Illegal use of INPUT; line number missing. 
Mismatch of variable types; for example, a string variable is 

assigned to a numeric variable, or vice versa. 
Out of string space. Increase N in CLEAR N. 
String too long. Maximum string length is 255 characters. 
String operation too compHcated. Break up into shorter steps. 
CONTinue statement cannot be executed; for example, after an 

END statement, or after editing. 
RESUME statement is missing. Add a RESUME at the end of 

the error-trapping routine. 
RESUME encountered without an ON ERROR GOTO. Check 

for missing ON ERROR GOTO. 
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Error 




Error 


Code 




Message 


Number 


Cause (Corrective Action) 


UE 


20 


Invalid error code number used with ERROR statement. Check 
list of error code numbers. 


MO 


21 


The operation is missing an operand. Add the operand. 


FD 


22 


File data are not acceptable. Data on tape are not compatible. 


L3 


23 


This BASIC statement is only available when the computer's 
mini disk is connected through the interface. 



appendix 



lllpGsePvei! woi^s 



None of the following words can be used inside a variable name. A syntax 
error will occur if these words are used as variables. However, all words end- 
ing with the symbol $ (for example CHR$) may be used as legal variables 
when the $ is dropped. Therefore, CHR is a legal variable. Some of the words 
Hsted below have no function in Level II BASIC; they are reserved for Level 
II Disk BASIC. 



@ 


ELSE 


LOC 


RESTORE 


ABS 


END 


LOF 


RESUME 


AND 


EOF 


LOG 


RETURN 


ASC 


ERL 


LSET 


RIGHTS 


ATN 


ERR 


MEM 


RND 


AUTO 


ERROR 


MERGE 


RSET 


CDBL 


EXP 


MID$ 


RUN 


CHR$ 


FIELD 


MKD$ 


SAVE 


CINT 


FIX 


MKI$ 


SET 


CLEAR 


FN 


MKS$ 


SGN 


CLOCK 


FOR 


NAME 


SIN 


CLOSE 


FORMAT 


NEW 


SQR 


CLS 


FRE 


NEXT 


STEP 


CMD 


FREE 


NOT 


STOP 


CONT 


GET 


ON 


STRINGS 


COS 


GOSUB 


OPEN 


STR$ 


CSNG 


GOTO 


OR 


SYSTEM 


CVD 


IF 


OUT 


TAB 


CVI 


INKEY$ 


PEEK 


TAN 


CVS 


INP 


POINT 


THEN 


DATA 


INPUT 


POKE 


TIMES 


DEFDBL 


INSTR 


POS 


TO 


DEFFN 


INT 


POSN 


TROFF 


DEFINT 


KILL 


PRINT 


TRON 


DEFSNG 


LEFTS 


PUT 


USING 


DEFSTR 


LEN 


RANDOM 


USR 


DEFUSR 


LET 


READ 


VAL 


DELETE 


LINE 


REM 


VARPTR 


DIM 


LIST 


RENAME 


VERIFY 


EDIT 


LOAD 


RESET 
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The following glossary provides short descriptions of Level II BASIC com- 
mands, instructions, and functions. Most of the terms are described in detail 
within the text and can be located readily through the index. In addition, 
the glossary includes some frequently encountered programming and data- 
processing terms. 



Abbreviations 

ABS(X) 

Access time 

Address 

Algorithm 

Alphanumeric character 

AND 

Argument 

Arithmetic operators 

Array 
ASC(string) 

ASCII code 

Assembler 
Assignment 

ATN(X) 

AUTO 
BASIC 
Baud 



Level II BASIC allows for only three abbreviations: ? for PRINT, ' for REM, . for last line 
entered, edited, or in which an error occurred. 

A library function to determine the absolute value of X. The absolute value of X is always 
positive; for example, ABS(5)=5, and ABS(-5)=5. 

The time interval between the instant at which data are called for from storage and the 
instant delivery begins. 

A location in memory where a byte is stored. 

A step-by-step procedure for solving a specific problem, or for performing a specific task. 

Any letter, digit, or special symbol. 

A logical operation; -1 AND -1 = -1 ; AND -1 = 0; AND = 0. 

The expression on which a function operates to yield a specific result; for example, 5 is 
the argument in SQR(5). 

Perform arithmetic with numeric variables: addition (+), subtraction (-), multiplication 
(*), division (/), exponentiation (t). 

A subscripted variable; an ordered list of numbers or strings. 

Returns the ASCII code of the first character of the string. Performs the inverse of the 
CHR$ function. 

American Standard Code for Information Interchange; in Level II BASIC the codes corre- 
spond to numbers to 255. 

Converts a symbolic language program into machine language. 

The procedure by which the value of a variable is specified. Assignment is indicated by 
the equal sign; for example, X=5. 

A library function to determine the arctangent of X. Displays the angle (in radians) whose 
tangent is X. 

A command for automatic line numbering. 

Beginner's All-purpose Symbolic Instruction Code; one of many computer languages. 

Speed in which information is transferred; measured in bits per second. 
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Binary number 
Bit 

Branching 
BREAK key 
Built-in function 
Byte 
CBDL(X) 
Chaining 

CHR$(N) 

CINT(X) 

CLEAR 
CLEAR key 

CLEAR N 

CLOAD 
CLOAD "NAME" 

CLOAD? "NAME" 

CLS 

Coding 
Colon (:) key 
Comma 

Command mode 

Compiler 

Computer program 
Concatenate 

Conditional transfer 

CONT 

COS(X) 

CSAVE "NAME" 



A number in the base 2 number system consisting of the digits and 1 . 

Binary digIT; a single digit in the binary number system; i.e., a binary 1 or a binary 0. 

See transfer statements. 

Stops execution; to resume type CONT. Also used to escape the AUTO command. 

See library functions. 

Smallest unit of memory; consists of 8 bits. 

A library function to present X in double precision. 

Forming a multiple statement line. Saves memory space. Colons are used between state- 
ments to chain them together into one line. 

Returns the character that has N as its ASCII code. The argument N may be any expres- 
sion whose numerical value is to 255. Performs the inverse of the ASC function. 

A library function to determine the largest integer not greater than X. The argument X 
must be between -32768 and 32767; for example, CINT(2.2)=2, and CINT(-2.12)=-3. 

A command to set all numeric variables to zero and all string variables to null. 

Clears screen; returns cursor to first line; switches from 32 to 64 characters per line 
format. 

A command to reserve N bytes of memory for strings. In addition, the command sets all 
numeric variables to zero and string variables to null. When the computer is first turned 
on, 50 bytes are automatically reserved. 

Command to load the very next program stored on the cassette into the computer. 

Command to load the program NAME from cassette into the computer. Only the first 
character of NAME is recognized by the computer. 

Command to compare a program on cassette with the program in the computer. Useful 
in checking whether a program was properly stored on cassette. 

A statement to clear the screen and move the cursor to the top left. 

Writing a computer program. 

Used to chain statements together; for example, 10 FOR 1=1 TO 5: PRINT I: NEXT. 

Causes the items of a list in a PRINT statement to be displayed in successive zones 
across the screen; for example, PR INT A,B,C. 

Computer responds to commands upon entry. When in this mode, the >_ is displayed. In 
the command mode, distinction is made among immediate and programming modes. 

Converts a high-level language program into machine language. 

See program. 

String together two or more string variables; for example, "AB" + "C" gives "ABC". The 
plus sign identifies concatenation. 

A statement that transfers execution to a specific line in a program depending on whether 
a certain condition is met. 

Command to continue execution after it has been stopped with the BREAK key or with 
a STOP statement. BREAK and CONT are useful in debugging. 

A library function to determine the cosine of X. The argument X must be in radians. 

Command to store program currently in the computer on tape. To transfer the program 
back from cassette to computer, use CLOAD "NAME". 
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CSNG(X) 

Cursor 
DATA 

Data validity check 

Debugging 
DEFDBL letters 
DEf INT letters 

DEFSNG letters 
DEESTH letters 
DELETE 

Device number 

DIM 



Double-precision 
variable 

Dual cassettes 

Dummy argument 

Edit mode 

EDITN 
END 

ENTER key 
ERL 



ERR 

ERR/2+1 

ERROR code 

Error message 

Error N 
Execute mode 



app. Ill I BASIC glossary 

A library function to form the single-precision version of X; for example, CSNG 
(1.234567890) is 1.23457. 

Pointer on the screen indicating position in which next typed entry will be made. 

A statement that stores data in one or more lines within a program. These data can be 
read with a READ statement; for example, 10 DATA 10,20,"ERIC". 

Giving the operator an opportunity to check the data just entered and to make correc- 
tions before data are processed. 

The process of locating and removing errors from a program. 

Variables beginning with the specified letters are declared as double-precision variables. 

Variables beginning with the specified letters are declared as integer variables. Saves mem- 
ory and executes faster. 

Variables beginning with the specified letters are declared as single-precision variables. 

Variables beginning with the specified letters are declared as string variables. 

Command to erase a line or several lines of a program in memory; useful in editing; for 
example, DELETE 50, DELETE -50, or DELETE 50-80. 

In the presence of two cassette drives, it is necessary to specify which cassette drive is to 
be accessed; for example, CLOAD #-l,"F"or PRINT#-2,A,B. 

Reserves memory space for subscripted variables. Specifies the range of each subscript. If 
no DIM statement is used, a range of 1 1 (subscripts to 10) is allowed as the dimension 
of each array; for example, 10 DIM A( 10,10) is not needed. 

Sixteen significant figures; for example, A#=1 .234567890123456. 

Using two cassettes on line. 

An argument that can take on any value whatsoever and produce the same result. 

Add, change, or delete lines in a program. Enter mode through EDIT N (N = line num- 
ber). Escape edit mode by pressing Q. 

Command to display line number N and switch to edit mode. 

This statement terminates execution without a BREAK. END is optional. In its absence, 
execution stops when the last statement of the program is executed. 

Press to communicate an instruction to the computer. 

Function returns the line number at which an error has occurred. It equals zero if no 
error has occurred. If an error occurs in immediate mode, ERL=65536. Useful within an 
error-handling routine. 

Function returns the (error code -1)*2 of the error that has just occurred. Useful within 
an error-handling routine. 

Function returns the error code of the error that has just occurred. Useful within an error- 
handling routine. 

This statement causes the computer to proceed exactly as if the error corresponding to 
the specified code has occurred. Useful in testing an ON ERROR GOTO routine. 

Diagnostic information given by the computer about an error in the program; see Appen- 
dix 1. 

Every error has a code number N. There are a total of 23 error codes numbered 1 to 23. 

Computer executes a program; mode entered by typing in RUN. 
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app. Ill I BASIC glossary 



Execution 
Execution sequence 

Expansion interface 

Exponentiation 

EXPiX) 

EXTRA IGNORED 

File 
FIX(X) 

Flag 

Flowchart 

FOR 
FOR-NEXT/oop 

¥ RE (string) 

GOSUB N 
GOTO N 

Graphic block 

Halt execution 
Hanging comma 

Hanging semicolon 

Hexadecimal number 
Hierarchy of operations 
High-level language 

IF-THEN-ELSE 

Immediate mode 
INKEY$ 

INP(P) 



Programs are executed to yield results. 

Unless otherwise specified the execution of a program is sequential by line number, start- 
ing with the first statement of the program. 

Allows the use of additional devices: a second cassette, a printer, up to four mini disk 
drives, and up to 48K bytes of RAM. 

AtB; A to the power B; for example, 2t3=8. 

A library function to determine e^; for example, EXP{1) = 2.71828. 

Computer's response to entry of more data than required by INPUT. Execution continues 
without interruption. 

An organized collection of information. 

A library function to truncate X at the decimal point; for example, FIX(3.1415)=3. 

A special identifier; for example, it may identify the last data entry or the last record in a 
file. 

A grid of boxes interconnected by arrows, which shows the overall structure of a com- 
puter program. 

The first statement in a FOR -NEXT loop. 

The first statement of the loop is the FOR statement; the NEXT statement is the last. 
Together the sequence of statements constitutes a loop that is executed a specified num- 
ber of times. 

Returns the available string storage space; the argument string may be any (dummy) 
string variable or constant. Available space is related to CLEAR N. 

Unconditional transfer to the subroutine beginning at line N. 

Unconditional transfer to line N. In immediate mode (no line number), this statement 
will start execution at line N. Unlike the RUN command, it does not initialize all variables 
to zero and null. 

The video display is divided into 1024 graphic blocks: 128 horizontal and 48 vertical 
blocks. These can be addressed through the graphic functions. The point 0,0 is at the top 
left corner of the screen. 

Press SHIFT @ to freeze the display. To resume execution, press any key. 

Suppresses the line feed. Successive PRINT statements displ'ay in successive zones on the 
same line; for example, 50 PRINT A, 

Suppresses the Une feed. Successive PRINT statements display on the same line; for ex- 
ample, 50 PRINT A; 

A number in base 16. 

Order of priority for performing numeric and string operations. 

A computer language easy for humans to use. A program in such a language needs to be 
translated to machine language before it can be executed. 

A statement to test an expression. Depending on whether it is true or false, execution 
transfers to different lines within a program. The IF is a conditional transfer statement. 

A form of the command mode; no line numbers are used; also called calculator mode. 

Monitors the keyboard over a short interval and displays the key pressed within the 
interval. If no key pressed, returns the null (empty) string. 

Returns the current value from the specified port P. There are 256 ports numbered 
through 255. Requires an expansion interface. 
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INPUT "MESSAGE' 
A,B 

INPUT^IAB 



Integer arithmetic 
Integer variable 
Interpreter 

INT(X) 

^Key 
^Key 
-^Key 

Keyboard rollover 
Language errors 

Left to right rule 

LEFT$(string,N) 

LEN (string) 

LET 

Library functions 

Line length 
Line number 
LIST 

LLIST 

Logical errors 

Logical expression 

Logical operators 

Logical variables 

LOG(X) 

Looping 



Displays the message (if any) and interrupts execution so that values may be entered from 
the keyboard for A and B. 

Input the values of A and B from the cassette. The input list must be identical to the 
PRINT#-1,A,B that created the tape. 

Arithmetic with integer variables. It is faster than single- or double-precision arithmetic. 
Results of arithmetic are integers; for example, 3/2=1 . 

Whole numbers between -32768 and +32767 inclusive; for example, A%=1984. Integer 
variables take up less memory than other variables. 

A program that takes the high-level language program and leads the computer through 
the steps necessary to execute it. An interpreter does not translate the source program 
into an object program. It merely interprets the code so that the computer can execute it. 

A library function to determine the largest integer not greater than X; for example, 
INT(32800.5)=32800, and INT(-32800.5)=-32801. 

Backspaces the cursor and erases characters. 

Moves the cursor down to the next line. 

Moves the cursor to the next tab position. Tab positions are at 0, 8, 16, 24, 32, 48, and 
56. 

You can press a second key before releasing the first key. 

Errors detected by the computer. The computer checks each line of code and Usts errors 
in the form of diagnostic messages. 

BASIC statements are executed from left to right and are in addition subject to a hierarchy 
of operations. 

Isolates the first N characters of string. 

Determines the number of characters including blanks in string. 

An assignment statement. The LET is optional; i.e., 10 LET A=5 and 10 A=5 are identical. 

Functions to perform a variety of different tasks that have been programmed into the 
computer. These functions can be called upon within the program; for example, the func- 
tion SQR(X) determines the square root of X. 

A line within a program may be up to 255 characters in length. 

Identifies a Une in a program; any integer from to 65529 is permitted. 

Command to display the program currently in the computer. LIST 20 displays just line 
20. Specific sections of the program are displayed by LIST-20, LIST20-, or LIST 20-40. 

Identical to LIST except lists on the line printer. 

Using an incorrect formula or an inappropriate function will yield incorrect results. Errors 
in logic are more difficult to isolate than language errors since the computer does not 
detect them and does not respond with diagnostic messages. 

An expression that is either true or false. The expression equals -1 if it is true and if it is 
false. 

Operators that relate logical data and return logical results. Use with numeric and string 
variables(AND, NOT, OR). 

A variable whose value is -1 or 0. It is specified by means of a logical operation. 

A library function to determine the log to the base e of X. 

A repetitive process in which several Unes within a program are executed a specified num- 
ber of times. 
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Low-level language 

LPRINT 

Machine language 
Main program 

Matrix 
MEM 

Memory map 
MEMORY SIZE? 

M[D%( string,M,N) 

Mini disk 

Monitor mode 
Nested loops 

NEW 

NEXT 
NOT 

Null string 

Object program 
One-dimensional array 
ON ERROR GOTO N 

ON N GOSUB N1,N2, 
N3... 

ON NG0T0N1,N2, 
N3... 

Operators 

OR 
OUT P,N 

?£EK(address) 
POINT(X,Y) 

90KE address, N 



app. Ill I BASIC glossary 

Machine language; computer can directly perform operations specified in machine lan- 
guage. 

Identical to PRINT except prints on the line printer. 

The language used by the computer; it is in binary. 

The portion of the computer program that does not include the subroutines. Access to 
the subroutines is gained from the main program. 

A two-dimensional array; for example, A(I,J). 

Returns the number of unused and unprotected bytes in memory. 

Address locations of TRS-80 BASIC. 

Appears on the screen when the computer is first turned on. Respond by pressing ENTER 
unless you wish to reserve some memory for a machine language program. 

Isolates N characters of string, starting with the Mth character. If N is not specified, all 
the characters starting with the Mth are isolated. 

A storage device capable of storing up to 89,600 bytes. Has an access time much faster 
than tapes. Allows sequential and random access. 

Loads machine language programs. 

One loop is completely enclosed in another loop. Innermost loop is executed most 
rapidly. 

Command to erase the entire program currently in the computer ; sets all numeric variables 
to zero and all strings to null. Does not change the string space reserved by a previously 
executed CLEAR N. 

The last statement of a FOR-NEXT loop. 

A logical operation; NOT -1=0; NOT 0=-l. 

An empty string containing no characters. The RUN command sets all numeric variables 
to zero and all string variables to null. 

The compiled version of a source program. It is in a form that can be executed directly. 

A subscripted variable with one subscript ; for example, A(l). 

An unconditional transfer; when an error occurs, execution transfers to line N, where an 
error-trapping routine starts. 

A conditional transfer to one of several subroutines; if N=l transfer to the subroutine 
beginning at line Nl, if N=2 to line N2, and so on. 

A conditional transfer; if N=l execution transfers to line Nl, if N=2 to line N2, and so 
on. 

Perform arithmetic, logical, relational, and string operations; for example, addition or a 
less-than comparison. 

A logical operation; -1 OR -1=-1 ; OR -1=-1 ; OR = 0. 

Sends the value N to port P. Both arguments must be in the range to 255; useful with 
an expansion interface. 

Returns the value stored in the specified address. 

A graphic function to test whether the graphic block at the horizontal position X and 
vertical position Y is turned on or off. If it is on, the function returns a -1 , and if it is not 
turned on, it returns a 0, 

Stores the value N into the memory location of the specified address. N must be between 
and 255. 
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POS(X) 




PRINT' 


'MESSAGE 


A,B 




PRINT' 


'MESSAGE 


A;B 




PRINT USING 


PRINT® NAB 



PRINT #-1,A,B 

Program 

Programming mode 

Radians 

RAM 

RANDOM 

Random access 

Random number 
READ A,B 
REDO 
Relational operators 

REM 

Reserved words 
RESET(X,Y) 

RESTORE 
RESUME N 

RETURN 

R\GHl%(string,N) 

RND(X) 



app. Ill I BASIC glossary 

Determines the current cursor position: a number from to 63. X is any (dummy) argu- 
ment. 

Displays the message (if any) and the values of A and B in successive zones of the screen. 
Displays the message (if any) and the values of A and B with few spaces between them. 

Specifies a format for displaying numeric and string values. Useful in report generation. 

Displays the values of A and B starting at position N. The screen is divided into a grid of 
1024 positions numbered to 1023. 

Prints the values of A and B onto a cassette tape. The list to be printed cannot exceed 
255 characters. These data can subsequently be read into the computer with the state- 
ment INPUT#-1AB. 

A set of instructions in BASIC to perform a specific task. 

A form of the command mode; each statement must have a line number. 

A measure of angles; 1 radian = 57.296 degrees. 

Random Access Memory ; memory that is available for storing programs and data. 

Reseeds the random-number generator and ensures that the computer generates a new 
sequence of random numbers. 

Files may be accessed directly as, for example, on a mini disk. This is in contrast to 
sequential access of files on tape. 

A number whose value cannot be predicted from the numbers that precede it. 

Reads values for A and B from a DATA statement. 

Computer's response to entry of inappropriate numeric or string data for INPUT. 

Compare numeric and string variables. Return logical results; -1 for true, and for false. 
In numeric expressions, the numbers are compared; in string expressions, the ASCII 
values are compared: less than (<), greater than (>), equal (=), less than or equal «=), 
greater than or equal (>=), unequal (<>). 

A remark used to clarify the program; an explanatory comment. The computer ignores 
the statement. 

Words reserved for Level II BASIC and DISK BASIC. These may not be used as variable 
names. 

A graphic function to turn off the graphic block at the horizontal position X and vertical 
position Y. The point (0,0) is at the top left corner of the screen; 0<=X<128 and 
0<=Y<48. 

The next READ statement following RESTORE will read data from the very first DATA 
statement in the program. 

Terminates an error-trapping routine and causes execution to transfer unconditionally to 
line N. RESUME will transfer to the line at which the error occurred. RESUME NEXT 
will transfer to the line following the error. 

Ends a subroutine and returns execution to statement following the GOSUB. 
Isolates the last N characters of string. 

A library function to generate a random number. RND(O) produces a random number 
between and 1. RND(10.5) produces a random number between 1 and 10. 
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ROM 

Routine 
RUN 

Scientific notation 

Semicolon 
Sequential access 

SET (X, Y) 

SGN(X) 

SHIFT key 
SHIFT @ key 
SHIFT -> key 

SHIFT ^ key 

Single-precision 
variable 

SIN(X) 

Source program 

SQR(X) 

Statement 
STEPN 

STOP 

String 

String operators 

STRING${N,"C") 

STR$(N) 

Subroutine 

Subscript 



app. Ill I BASIC glossary 

Read Only Memory; memory occupied by system prqgrams; this memory can only be 
read and not used for storage. 

A set of instructions to perform a specific task. 

Command to request execution of a program. Entry of execution mode. RUN N requests 
that execution start at line N. The RUN command also automatically executes a CLEAR 
command; sets all numeric variables to zero and strings to null. 

Breaks a number into two parts: a number between 1 and 10 and an exponent of 10; for 
example, 1 000000= 1E6; exponent characters E and D for single and double precision, 
respectively. 

Causes the items of a list in a PRINT to be displayed close together with few spaces; for 
example, PRINT A;B;C$. 

Files are stored sequentially one after the other (for example, on tape) and are conse- 
quently accessed sequentially. To access the last file on tape, it is necessary to go through 
the entire tape. This is in contrast to random access on disks. 

A graphic function to turn on the graphic block at the horizontal position X and vertical 
position Y. The point (0, 0) is at the top left corner on the screen; 0< = X<128 and 
0<=Y<48. 

A library function that examines the argument X and returns a -1 if X is negative, a if 
X is zero, and a 1 if X is positive. 

Press to type uppercase characters. 

Stops execution and freezes the display; to resume, press any key. 

Converts to 32 characters per line display. To convert back to 64 characters, press CLEAR 
key. 

Returns cursor to start of current hne and erases entire line. 

Six significant figures; for example, A!=1 .23456. All variables are in single precision unless 
otherwise declared. 

A library function to determine the sine of X. The argument X must be in radians. 

A program written in a language that must be translated into machine language before it 
can be executed. 

A library function to determine the square root of X. The argument X cannot be negative. 

A BASIC instruction. 

Part of the FOR statement; the STEP N increments the loop's counter by N during each 
sweep. 

Interrupts execution and displays the line at which execution was stopped. The command 
CONT will resume execution. 

A sequence of alphanumeric characters; string variables are tagged with a $ to distinguish 
them from numeric variables. Strings are enclosed in quotes; for example, A$="TRS-80". 

Strings may be concatenated (+) or compared using relational operators. 

Produces a string consisting of N characters C; for example, STRING $(3,"+") is +++. 

The numeric expression N is converted to a string; for example, STR$(1.2) is "1.2". Per- 
forms the inverse of the VAL function. 

A subprogram, a section within a program that may be accessed from the program itself 
or from other subroutines during execution. 

The expression in parentheses identifying the specific element of an array; for example, 
the I in A(l). 
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Subscripted variable 

SYSTEM 
TAB{X) 



TAN(X) 
Trace 

Transfer statements 

Translator 

TROFF 

IRON 

Two-dimensional array 
Type definition 
Unconditional transfer 

USR(X) 

yfKU string) 

Variable 

Variable declaration 
character 

Variable name 

Variable types 

VARPTR(V) 

Zero subscripted 
element 
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A list of items; for example, A(l) is a one-dimensional array; A$(I,J) is a two-dimensional 
array containing strings; A%(I,J,K,L) is a four-dimensional array of integer values. 

Command to enter the monitor mode for loading a machine language file from cassette. 

A library function; for example, the statement 10 PRINT TAB (20) A will display the 
value of A starting at the twentieth print position. Each line contains 64 print positions 
numbered to 63. TAB (65) displays on the next hne. The argument must be between 
and 255. 

A library function to determine the tangent of X. The argument X must be in radians. 

A technique for debugging programs. The line number of each statement is displayed as it 
is executed. TRON and TROFF turn the trace on and off, respectively. 

BASIC statements that cause execution to deviate from the normal sequence of execiition 
(starting with the lowest line number and executing subsequent lines in ascending order). 

A program that converts a high-level language to another high-level language. 

Command to turn off the Trace. 

Command to request a trace of the program during execution. Useful in debugging; the 
computer displays the line number of each line as it is executed. The TROFF command 
terminates the trace. TRON and TROFF may be used within a program. 

A subscripted variable with two subscripts; for example, A(I,J). 

A statement that declares variables as integer, string, single, or double precision. 

Deviate from the usual sequential execution and branch to a specific line in the program; 
for example, 10 GOTO 50. 

Transfers to a machine language subroutine. 

Converts the digits in string to a number; for example, VAL("1984") is the numeric con- 
stant 1984. Performs the inverse of the STR$ function. 

A quantity represented by a symbol that can assume various values. 

Identifies the variable type; a character is appended to the variable name: !, single preci- 
sion; #, double precision ;%, integer; $, string. Without a declaration, variables are assumed 
to be single precision. 

Identifies the variable; must begin with a letter; may be followed by a digit or a second 
letter. Additional letters or digits are ignored by the computer. VaUd names T, TR, TRS. 
Variables TR and TRS are the same. 

Four different types: single precision, double precision, integer, and string. 

Produces an address to help locate where the variable name V and its value are stored. 

First element in an array, A(0). 



Zone 



The screen is divided into 4 zones, each containing 16 print positions. 



SOLUTIONS TO EVEN-NUMBERED EXERCISES 



CHFlPTER 2 

EXERCISES 1 



CH. 2. EX. 
PRINT 15 
15 



1. PROBLEM 2 



CH. 2, EX. 1, PROBLEM 4 
PR I NT "LEON ID BREZHNEV 
LEONID BREZHNEV 
PR I NT "SOVIET UNION" 
SOVIET UNION 



CH. 2.. EX. 1, PROBLEM 6-fl 

flLPHRBET*= " ftBCDEFGH I JKLMN0PQRSTUVWXV2 

PRINT ALPHflBET* 

ftBCDEFGH I JKLMNOPQRSTUVWXVZ 



CH. 2., EX. 1, PROBLEM 6-B 
N*= " 0121456789 " 
PRINTN* 
0123456789 

CHftPTER 2 

EXERCISES 2 



CH. 2, EX. 2, PROBLEM 
SPi =4869684. 5*8 
PRINT SP! 

3. 89575E+07 
DP#=4869684. 5*8 
PRINT DP# 

38957476 



CH. 


2, EX. 2, PROBLEM 


4 


ft> 


ft+B-C 




b:j 


C*';fl-V> 




c> 


fi*B-2 




D> 


fl*B*C*fl 




E> 


C-B/3-D 




F> 


< ft*B-C* < fl-B >>/<. 3-ft > -ft*C 


CH. 


2.. EX. 2. PROBLEM 


6 


flB=5 




HC=6 




PRINT flB+flC 




11 






PRINT BB-flC 




-1 






PRINT ftB*ftC 




30 






PRINT flB/flC 




S33333 




CH. 


Z. EX. 2. PROBLEM 


8 


fl> 


?/0 ERROR 




B> 







C> 


1 




D> 







E> 


?/0 ERROR 





CH. Z, EX. 2, PROBLEM 10 

fl> PRINT 40*9. 50 

B> PRINT 37*9. 50 

C> PRINT 40*9. 50+7*14. 25 



CH. 2. EX. Z, PROBLEM 12 
NOTE : S= < T*60+M > *60 
PR I NT < 1*60+30 > *60 

5400 
PR I NT < 0*60+1 > *60 

60 



CH. 2, EX. 2, PROBLEM 14 
P=24 
I=. 03 

N=1980-1627 
BflLflNCE=P*<l+I>CN 
PRINT BRLflNCE 
816100 



CH. 2. EX. 2. PROBLEM 16 

I=. 08/12 

PR I NT 30000* I * < 1+ 1 > C 480/ < < 1+ 1 > C 480-1 > 

208. 594 
I=. 1/12 
PRINT 30000*1* <:i+ 1 >C 480/< Cl+I >C 4S0-1> 

254. 744 



CH. Z, EX. 2> PROBLEM 18 

fl> SL0PE=<V2-V1>/<X2-X1:j 

B> Xl=l 

X2=4 

V1=2 

V2=8 

DISTftNCE=< <X2-X1>C 2+'::V2-Vl>C 2> >C . 5 

PRINT DISTANCE 
6. 70821 

SLOPE= < V2- VI .V C X2-X1 > 

PRINT SLOPE 
2 

l«<9(ci«<2tc^^;4<>t<i«<:ti>ttH!^^>(<H<H:>f:>f:^'.*4:><''>t:3t:>»:)t:3i:>t<4: 

CHAPTER 3 

EXERCISES 3 



10 REM CH. 3. EX. 3, PROBLEM 2 

20 PRINT"MV COMPUTER LIKES ME" 

30 C=100 STORE 100 IN C 

40 PRINTC: "VEARS AGO" 

50 B=10 'STORE 10 IN B 

60 A=l STORE 1 IN A 

70 PRINTA+B+Cj "VEARS AGO" 

75 NOTE: SEMICOLONS ARE OPTIONAL 

80 PR I NT A; "PLUS"B"EQUALS"ft+B 

90 PR I NT "HE HAS "^ -Bj "DOLLARS" 

10 REM CH. 3. EX. 3. PROBLEM 4 
15 I=. 08 SET I=INTREST RATE 
20 B=10000 "B IS BALANCE 
30 PRINT "INTEREST PAID ON"; B 
40 PR I NT "FOR A DAV IS".; I/365*B 
50 PRINT"FOR A WEEK IS"I/52*B 
55 --NOTE: SEMICOLON OPTIONAL 
60 PR I NT "FOR 3 MONTHS IS"I/4*B 
70 PR I NT "FOR 6 MONTHS IS"I/2*B 
80 PRINT"FOR A VEAR IS"I*B 
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solutions to even-numbered exercises 



10 REM CH. 3, EX. 3. PROBLEM 6-fl 
20 PRINT" IN FRENCH RED IS ROUGE" 
30 PRINT" IN GERMftN IT IS ROT 
40 'NOTE: TRAILING QUOTES OPTIONAL 



10 REM CH. 3> EX. 3. PROBLEM 6-B 

20 X=2 

30 V=3 

40 PRINT"THE SUM OF X AND V IS:"X+V 

50 PR I NT "THE PRODUCT OF X AND V IS:"X*V 



10 REM CH. 3. EX. s, PROBLEM 8 

20 A=10 

25 B=20 

27 PR I NT "QUOTIENT OF"; A^ "TO"; Bj " IS"; A/B 

30 'NOTE: B CANNOT BE ZERO 



10 REM CH. 3.. EX. 3. PROBLEM le-A 

20 S=10 

30 PR I NT "THE VOLUME IS" 

40 PRINTS*S*S 



10 REM CH. 3, EX. 3. PROBLEM 10-B 

20 S=i0 

30 PR I NT "THE VOLUtlE IS"; S*S*S 



10 REM CH. 3. EX. 3. PROBLEM 10-C 

20 S=10 

30 PRINT"THE SIDE IS"; S 



10 REM CH. 3, EX. 3. "PROBLEM 10-D 

20 S=10 

30 PRINT"THE SIDE IS"; S 

40 PRINT"THE VOLUME IS"; S*S*S 

50 REM 

60 REMARKS: REPLACE LINE 2© BV S=20 



10 REM CH. 3. EX. 3, PROBLEM 12 

20 PRINT" X" 

3:0 PRINT" XXX" 

40 PRINT" XXXXX" 

50 PRINT"XXXXXXX" 

60 PRINT" XXX" 

70 PRINT" XXX" 



>«cH<l4<^'>t:>«<¥it:>*<)^4:>f:!t:4:>t:i*:>t:>t:>i:>(:>t:>(:>f:>f:>t<^>^>f:^'>f: 



CHAPTER 3 

EXERCISES 4 



CH. 3. EX. 4. PROBLEM 2 

A > REENTER LINE 30 WITH THE 

CORRECT VERSION. 
B>TVPE 'EDIT 30 THEN PRESS 

'^X' DELETE CHARACTERS UNTIL 

REACH A" OF PRODUCT, NEXT 
TVPE 'UCT OF A AND B IS "; A*B \ 
OTVPE EDIT 30 TO ENTER ED 11 NODE 

PRESS THE SPACE BAR UNTIL THE 'D 

OF PRODUCT SHOWS, TVPE C TO CHANGE 

THE NEXT CHARACTER; NOW 

TVPE 'U'- AND THEN 'ENTER'. 



CH. 3, EX. 4, PROBLEM 4 

10 PRINT 'USE D OPTION 

15 INPUT A USE I OPTION 

20 PRINT "PHVSICS IS FUN" 'USE X OPTION 

25 PRINT A;B;C 'USE C OPTION 

30 INPUT "VOUR AGE"; AGE 'USE X OPTION 

40 C=5*CF-32>/5 USE C OPTION 

45 PR I NT" DON "T TREAD USE K OPTION 

50 PR I NT "ONE FOR THE M*NEV" USE S&C OPT 

55 X=5 'USE D OPTION 

99 END 'RETVPE LINE 35 AS 99. TVPE 35 



10 REM CH. 3. EX. 4. PROBLEM 8 

20 'MONTHLV MORTGAGE PAYMENTS 

30 INPUT "AMOUNT & VRS OF MORTGAGE"; M.. V 

40 INPUT "ENTER INTEREST RATE IN ;i"; I 

50 'CONVERT MORT. DURATION FROM V TO M 

60 N=V*12 

65 '•CALCULATE MONTHLV INTEREST 

70 1 = 1*. 01/12 

75 'CALCULATE MONTHLV PAVMENTS 

80 P=M*I*<I+l>CN/'s<I+l>CN-i> 

90 PRINT "MONTHLV PAVMENT IS *"; P 



10 REN CH. 3, EX. 4, PROBLEM lO-A 

20 INPUT"FIRST TEMP"; F 

30 INPUT "SECOND TEMP"; S 

40 INPUT "THIRD TEMP"; T 

50 PR I NT "AVERAGE TEMP IS" <;F+S+T;'/3 



10 REM CH. 3. EX. 4.. PROBLEI'I lO-B 

20 INPUT "ENTER 3 TEMP 'S"; F. S.. T 

30 PR I NT "AVERAGE TEMP IS"<F+S+T>/3 

10 REM CH. 3, EX. 4. PROBLEM 12 

20 PR I NT "HELLO" 

30 INPUT"HI WHAT IS VOUR NAME"; N* 

40 PR I NT "HELLO "; N* 

50 PRINT"MV NAME IS NEUTER COMPUTER' 



10 REM CH. 3.. EX. 4, PROBLEt'l 14 

20 PRINT "PLEASE ANSWER THE FOLLOWING 

QUESTION" 
40 INPUT "DO VOU PREFER BOVS OR 

GIRLS"; C* 
50 PRINT "HEV, I TOO PREFER "C*" 

THAT'S GREAT! " 



10 REM CH. 3, EX. 4, PROBLEM 16 

20 INPUT "DEPTH IN FEET"; H 

30 P=0. 0295*H 

40 PRINT "AT A DEPTH OF"; H; "FEET THE ' 

45 --NOTE THE SEMICOLON AT THE END OF 

46 ' LINE 40 SUPPRESSES THE LINE 

47 '■ FEED — SEE CHAPTER 5 

50 PRINT "PRESSURE IS"; P; "ATMOSPHERES. 

CHAPTER 4 

EXERCISES 6 



10 REM CH. 4, EX. 6, PROBLEM 4-A 

20 INPUT "ENTER 2 NUMBERS"; Nl, N2 

25 IF Nl+N2<=0 THEN 40 

30 PR I NT "THE SUM 0F"N1" + "N2" = "; N1+N2 

40 END 
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solutions to even-numbered exercises 



10 REM CH. 4, EX. 6. PROBLEM 4-B 

20 INPUT "TWO NUMBERS"; N1,N2 

30 IF N1+N2<=N1*N2 THEN 40 

35 PRINT "SUM IS GREATER" : END 

40 IF N1+N2»N1*N2 THEN 5© 

45 PRINT "PRODUCT IS GREATER" : END 

50 PRINT "PRODUCT EQUALS SUM" 



10 REM CH. 4. EX. 6. PROBLEM 4-C 

20 INPUT "THE CAPITAL OF FRANCE"; CAP* 

30 IF CAP*="PARIS" PRINT"VOU ARE OK"; END 

40 PRINT "NOPE. SEE VOU IN PARIS. " 



10 REM CH. 4. EX. 6, PROBLEM 6 

15 INPUT "ENTER 4 NUMBERS"; A. B. C. D 

20 IF A>B AND A>C AND A>D PRINT A : GOTO60 

30 IF B>A AND B>C AND B>D PRINT B . QOTO60 

40 IF OA AND OB AND OD PRINT C : GOTO60 

50 PRINT D 

60 PRINT "IS LARGEST"; END 



10 REM CH. 4. EX. 6. PROBLEM 8 

15 INPUT "SALES"; S 

20 IF S<=1000 THEN PAV=i0e ; GOTO50 

30 IF S<=2e00 THEN PAV=. 15*S ; GOTO50 

40 PAV=250+. 07*S 

50 PRINT "PAV IS"; PRV 



10 REM CH. 4. EX. 6. PROBLEM 16 
15 INPUT "AGE"; A 

17 IF A<=0 PRINT" INVALID AGE": GOTO 15 

18 IF A>120 PRINT"INVALID AGE":GOTO IS 
20 IF R>=18 THEN 50 

25 PRINT "PERSON IS A MINOR": END 
30 IF A>=65 THEN 50 

40 PRINT "PERSON IS NEITHER A MINOR" 

41 PRINT "NOR A SENIOR CITIZEN"; END 
50 PRINT "PERSON IS A SENIOR CITIZEN" 



10 REM CH. 4. EX. 6. PROBLEM 12 

15 ON ERROR GOTO 50 

18 INPUT "A, B. C"; A. B. C 

20 X=<-B+<B*B-4*A*C>C. 5>/c;2*A> 

30 PRINT "REAL ROOT IS"; X 

40 END 

50 PRINT "IMAGINARV ROOT" 

60 RESUME 40 



10 REM CH. 4, EX. 6, PROBLEM 14 

20 INPUT "NUMBER"; N/i 

40 lEST/.=H}:/2 

60 IF N?i=2*TESrX PRINT "EVEN "END 

90 PRINT "ODD" 

>t< H< X< >f: H< 4< « >t: >t< 4: H< >t: >«< l*-: !t^ It' ^: >^ ^ >^ if^ >f : >f: >t. :t: H^ ^: >t: >«< >»' 

CHAPTER 5 

EXERCISES 7 



CH. 5. EX. 7. PROBLEM 4 A-E 
A> 10 PRINT N+1 

20 IF N<19 THEN N=N+1 ; GOTO 10 
OR 10 FOR N=i TO 20 

15 PRINT N: NEXT N 



B> 10 PRINT N+1; IF N>=i8 THEN END 
15 N=N+2; GOTO 10 
OR 10 FOR N=l TO 20 STEP 2 
15 PRINT N; NEXT N 



C> 



OR 



D> 



OR 



10 N=7 

20 PRINT N 

25 N=N+0. 5 

10 FOR N=7 TO 14 

15 PRINT N; NEXT 



IF N>=14 THEN END 
GOTO 20 

STEP 5 

N 



10 N=3 

20 PRINT 1/N 

25 IF N=10 THEN END 

30 N=N+1; GOTO 20 

10 FOR N=3 TO 10 

15 PRINT 1/N; NEXT N 



E> 10 N=10 

20 PRINT N; N=N-3 
25 IF N>=-10 THEN 20 
OR 10 FOR N=10 TO -10 STEP 
15 PRINT N: NEXT N 



CH. 5, EX. 7. PROBLEM 4-F 

10 N*2: P=l 

20 p=P*N: N=N+2: IF NOl© THEN 28 

30 PRINT "PRODUCT"; P 

40 REM USING A FOR- NEXT LOOP 

50 P=l 

55 FOR N=2 TO 10 STEP 2 

60 P=P*N; NEXT N 

70 PRINT "PRODUCT"; P 



CH. 5. EX. 7, PROBLEM 4-G 
10 INPUT A. B; P=l 

13 IF A<B THEN 19 

14 REM SWAP A & B 

15 C=A: A=B. B=C 

19 N=A 

20 F-P*N: N=N+1;IF N<=B THEN 20 
30 PRINT "PRODUCT"; P 

40 REM USING A FOR~NEXT LOOP 
45 P=l 

50 FOR N=A TO B; P=P*N : NEXT H 
60 PRINT "PRODUCT"; P 



CH. 5, EX. 7, PROBLEM 6 

10 " RULE OF 72 

20 INPUT "DEPOSIT & INTEREST RATE"; DE.. IN 

40 BA=DE 

60 FOR N=l TO 10000 

70 BA=BA+BA*IN/100 

80 PRINT"BALANCE FOR VEAR"; N; " IS"; EA 

82 IF BAL>=DE*2 THEN 90 

85 NEXT N 

90 PRINT "TIME TO DOUBLE IS"; N; "VEARS" 

95 PRINT "FINAL BALANCE IS *"; BR 



7. PROBLEM 
X 



a 



10 REM CH. 5, EX. 

15 PRINT "SEC 

18 X=80H=T 

20 V=4+70*T-16. 1*T*T 

40 IF X>355 THEN 70 

45 PRINT T; " "; X; 

50 T=T+. 5; GOTO 18 

70 PRINT "OUT OF THE BALL PARK" 



"; V 
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10 REM CH. 5. EX. ?.■ PROBLEM 16 

15 CLS: FLflQ=0: PR0F=-51 

18 T=T+1 

20 P=T*T*T-5*T*T+i0*T-51 

22 PROF=PROF+P 

24 PRINT t, P, PROF 

25 IF T=8 THEN 66 

30 IF P>0 ftND FLrtG=0 THEN 46 

35 GOTO 18 

40 FLfiG=i 

45 PRINT "PROFIT IS 1ST POS. IN VEflR"j T 

50 GOTO 18 

60 PRINT "CUMULRTIVE PROFIT"; PROF*ieee 



10 REM CH. 5, EX. 7. PROBLEM 12 
15 PR I NT "I WILL GUESS VOUR NUMBER ftND' 
18 PRINT"VOU TELL ME IF MV GUESS IS- 
IS PR INT "HIGH. CORRECT. OR LON" 



20 

23 



L=l 

H=100 



30 q;':=';l+h>/2 
40 pr i nt "guess is 

INPUT Q4 

IF q*="H" LET h=g;': 
IF Q*="L" LET l=g;': 



G^i.; "H. C. OR L".i 



45 
50 
60 
70 



IF Q*<>"C" 



80 PRINT"flH I 



PRINT Q*.: " 
WAS RIGHT" 



GOTO 30 
GOTO 30 

: G0T04e 



10 REM CH. 5.. EX. 7. PROBLEM 14 

15 D=l 

20 T=T+1/D: IF T>=4 THEN 46 

30 D=D+1; GOTO 20 

40 PRINT D; "TERMS SUI-l UP TO >=4' 



10 REM CH. 5. EX. 7. PROBLEM 16 

20 INPUT "# OF TERMS"; T 

30 F=l: D=l: X=0 : K=l 

40 X=X+«;i/D>*F; D=D+2: F=-F : K=h>l 

50 IF K<=T THEN 40 

70 PRINT "FOR".. T; "TERMS. SUM IS"; 4*X 



10 REM CH. 5. EX. 7. PROBLEM IS 

14 P=1000 : F=100000 

15 PRINT"VEflR "; "POPULATION 
20 V=V+10: p=2*P: F=F+4000 
30 PRINT V; " "; P; " "F 

40 IF F<P PR I NT "FOOD OUT IN VEftR"; V 



50 GOTO 20 



'FOOD' 



END 



10 REM CH. 5. EX. 7.. PROBLEM 20 

15 B=D 

20 INPUT "NONTHLV DEPOSIT"; D 

25 FOR X=l TO 12 

30 B=D+B+B*0. 06/12 

35 NEXT X 

40 PRINT "flFTER ft 'r'EftR VOU HftVE i"; B 



10 REM CH. 5. EX. 7. PROBLEI-I 22 

12 PRINT "PLEASE BE PftTIENT" 

15 FOR N=l TO 999 

18 REM GIVEN RELATION BETWEEN X i N 

20 X#=-0. 5+<0. 25+0. 5*N+0. 5*N*N>t0. 5 

25 REM X MUST BE AN INTEGER 

30 IF X#<100 THEN 45 

35 REM X ROUNDED TO 3 PLACES 



36 ' MUST BE AN INTEGER 

40 X?':=X# : X1=X#-X^: ; X^i=Xl*1000 

43 IF X:^i=0 THEN 50 

45 NEXT N 

50 X=X#: PRINT "N="; N; "X="; X 

55 END 

60 REM NOTE. ANSWER N=696 & X=49i 

CHAPTER 5 

EXERCISES 8 



10 REM CH. 5. EX. 
20 FOR V=l TO 6: 



8. PROBLEM 4-A 
PRINT V: NEXT V 



10 REM CH. 5. EX. 8. PROBLEM 4-B 
20 FOR V=i TO 6: PRINT V; : NEXT 



10 REM CH. 5. EX. 
20 FOR X=l TO 5: 
25 PRINT 
30 FOR X= 4 TO 6: 



8. PROBLEM 4-C 
PRINT X; : NEXT 



PRINT 



NEXT 



CH. 5. EX. 8. PROBLEM 6 
NEW 
PRINT MEM 

15572 
DIM A<10> 
PRINT MEM 

15520 



10 REM CH. 5. E 
20 DIM M<30> 
30 FOR X=l TO 



8. PROBLEM 3 



lis: MOO=X: NEXT X 



10 REM CH. 5. EX. 8. PROBLEM 10 

15 FOR X=l TO 10 

20 PRINT "ENTER NUMBER"; X 

25 INPUT A<X::' 

30 NEXT X 

35 FOR X=10 TO 1 STEP -1 

40 PRINT A<X>; 

45 NEXT X 

10 REM CH. 5. EX. 8. PROBLEM 12 

20 FOR X=l TO 5 

30 INPUT "NAME"; N*CX> 

35 INPUT "AGE";A<X.J 

40 NEXT 

50 FOR X=l TO 5 

55 IF ft<X><;=65 THEN 65 

60 PRINT Nt^X::-; " AGE"; A<X> 

65 NEXT X 



10 REM CH. 5. EX 
15 DIM N*<;50:j 
20 FOR L=i TO 5 
30 INPUT "NAME" 
40 NEXT L 
50 FOR L--=l TO 4 
60 IF N*<L> 

65 s*=n*<:l> 

70 NEXT I.L 

75 PRINT "NAME CLOSEST 



8. PROBLEM i4-A 



N*<L> 



FOR I=L+1 TO 5 
N*«;i> THEN 70 
N* < L > =N* < I > : N* < I > =S* 



TO 



80 PRINT "NAME CLOSEST TO 



";N**;i; 
"; N*<5; 



174 



solutions to even-numbered exercises 



CH. 5. EX. 8. PROBLEM 16 

10 FOR C=l TO 6 

20 PRINT"BflLflNCE FOR MONTH " j Cj "WHS" 

25 INPUT KC? 

30 NEXT C 

35 T=710 

40 FOR C=i TO 6: tKC .'=T<.C>-T : T^TkO 

50 PRINT "NET DEPOSIT MONTH" C"WhS"D 

60 NEXT C 

70 END 



10 

15 
20 
25 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 
85 



10 

15 
20 
30 
40 
45 
50 
60 
65 
70 
75 
80 
85 
90 
92 
94 
96 
98 
99 



8.. PROBLEM IS 



,y„ 



FOR V=l TO N 
X.. V> THEN 70 
GOTO 75 



REI-) CH. 5. EX 
M=3; N=2 
FOR V=l TO N 
FOR X=l TO M 
PRINT "INPUT fii.. 
INPUT fi<X.. V> 
PRINT "INPUT B".: 
INPUT B<X.. V> 
NEXT X. V 
FOR X=i TO M: 

IF fl^x.. v:j > B 

C<X.. V^=B<X.. V> 

c<x. v:.'=fl<x, v> 

PRINT COi, V>; 

NEXT V 

PRINT: NEXT X 



REM CH. 5. EX. 8. PROBLEM 20 

M=3. N=4 ;DIM M<5. 4;.' 

FOR X=i TO M 

FOR V=l TO N 

PRINT "ENTER " i Ki ".. "; V.: 

INPUT M<X. V.> 

NEXT V. X 

FOR X=l TO M 

FOR V=l TO N 

IF M<X. V:j<=100 THEN 85 

NEXT V 

PRINT "ROW ".iX 

NEXT X 

FOR V=i TO N 

FOR X=l TO M 

IF MCX. V><:=100 THEN 95 

NEXT X 

PRINT "COLUMN ") V 

NEXT V 



10 
12 
15 
20 
23 
25 
28 
30 
40 
50 
55 
60 
65 
70 
80 
82 
84 
90 
92 
94 
99 



REM CH. 5. EX. 8, PROBLEM 22 

DIM fl';20::'.B'.21> 

INPUT "THE NUMBER TO BE MERGED".; 

PRINT "ENTER THE SORTED fiRRflV" 

FOR K=l TO 10 

PRINT "ELEMENT NO. "; K 

INPUT fl<K> : NEXT 

FOR K=l TO 10 

IF fiCK>>=X THEN 66 

B<;K>=fl<K:.' 

GOTO 80 

B<K>=X 

B<K+i>=fl<K> 

GOTO 90 

NEXT K 

B<K::'=X 

GOTO 99 

FOR L=K+2 TO 11 

B<L>=R<L~i;.' 

NEXT L 

FOR L=l TO 11; PRINT B<L>.. : NEXT 



10 

13 
15 
16 
20 
25 
26 
30 
35 
36 
40 
45 
46 
50 
55 
60 
65 
70 
75 
80 



10 

13 
15 
16 
20 
25 
26 
30 
35 
36 
40 
45 
46 
50 
55 
60 
65 
70 



10 

12 
15 
17 
20 
25 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
76 
77 
80 
85 
86 
87 
89 
91 
93 
95 
97 
98 
99 



REM CH. 5. EX. 8. PROBLEM 248 

DIM N<;20:;' : CLS 

PRINT "ENTER THE FIRST flRRRV" 

PR I NT "SORTED IN DESCENDING ORDER' 

FOR X=l TO 5 

PRINT "NUMBER".: X 

INPUT N<X> 

NEXT X 

PRINT "ENTER THE SECOND RRRFlV" 

PR I NT "SORTED IN DESCENDING ORDER" 

FOR X=6 TO 10 

PRINT "NUMBER".; X-5 

INPUT N<X> 

NEXT X 

FOR J=l TO 9 

FOR R=J-t-l TO 10 

IF N(;J>.>N<R.> THEN 75 

S=N<R^; N'::R..'=N'.J:j : N':.J:j=S 

NEXT R. J 

FOR X=l TO 10. PRINT tK^j> : NEI^H 



REM CH. 5.. EX. 8.. PROBLEM 24B 

DIM N*';20;' : CLS 

PRINT "ENTER THE FIRST STRING" 

PR I NT "SORTED IN DESCENDING ORDER'' 

FOR X=l TO 5 

PRINT "ELEMENT".; X 

INPUT N*00 

NEXT X 

PRINT "ENTER THE SECOND flRRfi'i'" 

PR I NT "SORTED IN DESCENDING ORDER" 

FOR X=6 TO 10 

PRINT "ELEMENT"; X-5 

INPUT N*<X::' 

NEXT X 

FOR J=l TO 9 

FOR R=J+i TO 10 

IF N*<J..ON*'.R> THEN 75 

S*=N$ < R > : N* C R > =N* < J > : N$ (. J ::■ =S4 

NEXT R. J 

FOR X=l TO 10; PRINT N*<.X>> " ".; NEXT 

REM CH. 5.. EX. 8.. PROBLEM 26 
PRINT "BE PflTIENT" 
MIN=1E20 
ft=l ; D=2 ; G=3 
FOR B=4 TO 9 
FOR C=4 TO 9 
IF B=C THEN 97 
FOR E=4 TO 9 
IF E=B OR E=C THEN 95 
FOR F=4 TO 9 

IF F=E OR F=C OR F=B THEN 93 
FOR H=4 TO 9 

IF H=B OR H=C OR H=E 0RH=FTHEN91 
FOR 1=4 TO 9 

I F I =HOR I =FOR I =EOR I =COR I =BTHEN89 
N1=100-+-10*B+C 
N2=200+10*E+F 
N3=300+10*H+I 
P=N1*N2*N3 
IF MIN<=P THEN 89 



S1=N1 : 
MIN=P 
NEXT I 

ne;<:t h 

NEXT F 
NEXT E 
NEXT C 



2=Nc 



S3=n: 



NEXT B 
PRINT Si.; Si 
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solutions to even-numbered exercises 



CHftPTER 6 

EXERCISES 9 



10 REI1 CH. 6. EX. 3, PR0BLEI1 
20 ■■ DflTfl 1.. 2., 3.. ±0.. 20. 20 



10 REM CH. 6.. EX. 3, PROBLEM 6 

15 REftD L; ZZ=i ; Z=l 

17 REM L IS flRRRV LENGTH 

20 FOR X=J TO L; REf\l> V 

25 IF V>=0 THEN 20 

2? N»;Z>=V: Z=Z-H. GOTO 40 

30 P<ZZ:>=V: ZZ=ZZ+1 

40 NEXT 

45 PRINT "FiRRfiV P" 

50 FOR X=i TO ZZ-1 

55 PRINT PkXX: . NEXT X 

58 PRINT; PRINT "flRRflV N" 

60 FOR X=l TO Z-1 

65 PRINT N<X>j : NEXT X 

70 DRTfl 5.. -1, 2.. s.. -5. O 



10 REM CH. 6.. EX. S, PROBLEM 8 

12 PRINT "NO. ".; TAB < 12:.' .i "SQUARE".! TAB'S 24. 

O PRINT "SQ. ROOT".; TAB'.: 3.6;;'.; "CUBE"; 

14 PRINT TflB';4S.V; "CUBE ROOT" 

15 FOR X=l TO 10 

20 PRINT X; TAB i: 12:.'; X*X; TAB^.24:j; 

25 PRINT XC.5.: TAB<26>.; XC 2. 

26 PRINT TAB<4S:'.; XC -vlr-^:.' 
20 NEXT X 



10 REM CH. 6. EX. 9. PROBLEM 18 

11 REM SALES REPORT 

12 FOR 1=1 TO 4 

15 READ N* <l>, ASALES < I :;■ . BSALES <. I :;' 

18 DATA ERIC 6.. 3. RON.. 5.. 5. JEFF. 4. 12 

19 DATA FRED. 20. 2 

21 AC0M<I>=125 * ASALES «; 1 :3 

24 CHECK= BSALES '^ I :j -10 

27 IF CHECK>0 THEN 26 

30 BC0M(:i:)=95*BSALESa.-:' 

23 GOTO 27 

36 BCOM<:i>=950 + 145*CHECK 

27 TCOM C I :.< = ACOM <■. I :> +BCOM < I :;• 

28 TSALES <l> = ASALES <.!:> +BSALES <l> 

29 NEXT I 

42 REN PREPARE REPORT 
42 CLS 

45 PRINT "SUPER AGENCV SALES REPORT" 

46 PRINT 

50 PRINT TABkl2>;N*c:i:JjTAB';24>;N*<2:Jj 

51 PRINT TAB<:26>.: N*<3>J TAB';48:;'; N*<4;' 

52 PRINT "A SALES"; TABC12:>.: AS<1>.; 
52 PRINT TAB<24:J; AS<:2:j; 

54 PRINT TAB«:.26:>; AS'3>; TRB<48>; A=;';4J 

56 PRINT "COMMISSIONS"; TAB<12>;AC<1:j; 

57 PRINT TAB<24>; ACc:2>; TAB<26>; AC<2J; 

58 PRINT TAB^^B:;-; AC<4> 

59 PRINT "B SALES"; TAB.:i2>;BS<l>;TABC24>; 

60 PRINTBS<2>; TABC26::'; BS<2:>; TAE<43>; BS<4> 

61 PRINT"COMMISSIONS"; TAB'C12>; BC^l^.-; 

62 PRINT TAB'v24:;';BC<2>;TAB06:;-;BC<2>; 
62 PRINT TAB<48>;BCC4> 

64 PRINT 

65 PR I NT "SALESMAN". "SALES". "COMMISSION" 
G& FOR 1=1 TO 4 



67 PR I NT N* ■; I :■ . TSALES a > . TCOf-l < I > 

68 NEXT I 
70 END 



10 REM CH. 6. EX. 9. PROBLEM 12 
15 DIM H<1000>. M^lOO:^ 

20 PR I NT "BUILD TAPE. ENTER 555 TO STOP 

21 PR I NT "PLACE REWOUND TAPE IN DRIVE 

22 PR I NT "PRESS RECORD & PLAV 

24 PR I NT "ENTER INTEGERS FROM KEVBRD. 

25 PRINT "--250 < INTERGER C 250 
20 INPUT " INTEGER"; N^; 

40 PRINT #-1, N.-i 

50 IF N;^;<> 555 THEN 20 

61 PRINT "REWIND TAPE. PRESS PLAV " 

62 PRINT "FOR DUPLICATE DATA CHECK, " 
65 INPUT "KEV ENTER WHEN READV"; Q* 
70 INPUT #-1. NK 

80 IF H';nJ':+250;'=i then 70 

90 H':nk+250:>=i: w=w+i. M';w:.'=n^; 

91 IF N;i<>555 then 70 

92 PRINT "CASSETTE #2 IN DRIVE. 

92 PRINT "REWIND & PRESS RECORD " 

94 INPUT "KEV ENTER WHEN DONE"; Qi 

95 FOR X=l TO W; PRINT #--1.. M'^X:.' 

96 NEXT X 

97 REM PLACE END OF FILE 

98 ■ IDENTIFIER AT END OF TAPE 

99 PRINT #-1. 555 



10 REM CH. 6. EX. 9. PROBLEM 14 

11 D I M N* C 99 ::- . A* < 99 > . C* < 99 ::■ 

12 DIM S*<99:;'. Z*«;.99:j 

12 CLEAR 2000 CLEAR STRING SPACE 

14 INPUT "IS THIS A NEW FILE V/N". Q* 

15 IF Q*="N" THEN 90 

16 IF Q*0"V" THEN 14 

17 X=l •■ X IS RECORD NUMBER 

21 PRINT "ADD, DELETE. STOP "; 

22 INPUT " A. D. S";Q* 
22 IF Q*="S" THEN 47 

24 IF Q*="D" THEN 64 

25 IF Q*0"A" PRINT"?"; : GOTO 21 

25 I NPUT " NAME -C STOP= • END :.' " ; N* ■. X > 

26 IF N*<X>="END" LET X=X+1 ; GOTO 21 

27 INPUT "ADDRESS"; A*CX> 
38 INPUT "CITV";C*<X:) 

40 INPUT "STATE"; S*tX> 
42 INPUT "ZIP CODE";Z*'::x:> 

45 X=X+1; GOTO 25 

46 GOTO 21 

47 PRINT "REWIND & *RECORD* 

48 INPUT "KEV ENTER WHEN READV"; Q* 
54 REM ^iWRITE ALL RECORDS^i 

56 FOR V=l TO X-1 

58 PR I NT#-1. N* C V > . A* < V > . Ci- C V > . 5* C V > . Z* < V 

59 PRINT N$.<V:) 

60 NEXT V 

62 PRINT #-1. "END".Q*. Qt. Q*. Q* 

63 END 

64 REM SCAN RECORDS FOR NAME 

65 INPUT "NAME TO FIND"; Nl* 

66 REM FIND NAME ROUTINE 

67 FOR V=l TO X-2 

68 IF N1*=N*<V> THEN 74 

70 NEXT V 

71 PRINT Nl*; " NOT FOUND" 

72 GOTO 21 

74 REM DELETE RECORD ROUTINE 
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S3 
94 



80 FOR Z=V TO X 

81 REM DISPLACE DELETED RECORD 

82 N*<Z>=N*<Z+1> 
82 fl*<Z>=fl*<Z+l> 

84 C*<Z>=C*<Z+1> 

85 s*<:z>=s*tz+i;' 

86 Z*':;Z>=Z*<.Z+1> 

87 NEXT Z: X=X-1 

88 REM DONE 

89 GOTO 21 

90 PRINT "REWIND TAPE. PRESS PLflV" 

91 REM FIRST RECORD 

92 X=l 
INPUT "PRESS ENTER WHEN REflDV".; Qi- 
INPUT#-1. N*tX>. ft^<X'>. C*(;X>.. S4><X>. Z:*-':.; 

95 PRINT N«<X> 

96 IF N:^c:x> = "END" THEN 21 

97 X=X+1. GOTO 94 



10 REM CH. 6. EX. 9, PROBLEM 16 

11 INPUT "HOW MRNV EMPLOYEES".! W 

12 DIM EC50>. N^OO), VD-vSe^ 

15 PRINT "HAVE VOU BUILT •' i 

16 PRINT "A MASTER FILE?" 

17 INPUT "RESPOND WITH V OR N"; Qi 

18 IF Q*="V" THEN 32 

19 IF Q*<>"N" GOTO 99 

20 PRINT "BUILD MASTER FILE" 

21 PRINT "REWIND & RECORD " 

22 INPUT "PRESS ENTER WHEN RERDV"; Q* 

23 FOR E=l TO W 

24 INPUT "NAME".iN* 

26 INPUT "VEAR TO C^RTE EARNINGS".; VD 

28 PRINT #-1. E.. N*.. VD 

30 NEXT E 

32 PRINT ""^WEEKLV UPDATE*" 

34 PRINT "REWIND & PLAV " 

36 INPUT "PRESS ENTER WHEN RERDV".; Q* 

38 FOR E=l TO W 

40 I NPUT #-1. E •; E > . N* < E > . VD (. E > 

42 NEXT E 

44 FOR E=l TO W 

46 PRINT N*kE>j " ".; "WEEKS EARNINGS"; 

48 INPUT WE ■t'D<E>=VD':.E>+WE 

50 NEXT E 

52 INPUT "WRITE ON TAPE".; Q* 

54 IF Q*="N" THEN 12 

56 IF Q*0"V" THEN 99 

58 FOR E=l TO W 

60 PRINT »-l.. E<E>. N*r:E.^. VD'.;E> 

61 PRINT ECE>. N*<E>. VD<E> 

62 NEXT E 
64 GOTO 21 

99 PRINT "INVALID RESPONSE" GOTO 17 

CHAPTER 7 

EXERCISE 10 

CH. 7. EX. 10. PROBLEM 2 
A> REMAINDER WHEN X IS DIV. BV V. 
B> TRUNCATES X; X MAVBE POS.. NEC OR O 
C> DECIMAL FRACTION OF X. 
D> BRANCH TO 10.. 20. OR 38 IF X IS NEG.. 
ZERO OR POS RESPECTIVELY. 



10 REM CH. 7. EX. 10. PROBLEM 4 
20 LPRINT"A> PRINT 9+RND<li: 
30 LPRINT"B> PRINT i+RND<0:.' 



THRU ±2"; 



10 REM CH. 7.. EX. 18. PROBLEM 6 

12 RANDOM; DIM B'::i2> 

15 INPUT "THROW DIE HOW OFTEN".; H 

20 CLS: REM THROW ONE DIE 

25 FOR K=l TO N 

30 R=RND<6> 

35 A<R>=A<R>+1. NEXT K 

40 PRINT"FREQ. OF TOSSING "; 

42 PRINT "1 THRU 6 WITH 1 DIE" 

45 FOR K=l TO 6: PRINT AGO.; : NEXT K 

50 REM THROW 2 DICE 

52 PRINT 

55 FOR K=l TO N 

60 R^RND^ei^+RND'se.^ 

65 b<;r:.'=b<.r>+i; next k 
70 print "freq. of tossing 
72 print " with 2 dice" 

75 FOR K=2 TO 12 

80 PRINT K. B<K.>. NEXT K 



10 REM CH. 7. EX. 18. PROBLEM 

12 DIM A';i00> : RANDOM 

15 INPUT "NO. OF RANDOM NOS 

20 B=RND<20::' : A',B>=1 

25 FOR K=2 TO N. R=RND<>20> 

30 REM FOR PART D 

35 IF B=R LET F=Ft-± 

40 A(;r>=R':r>+i. b=r. next k 

50 REM PRRT a 

55 FOR K=l TO 28 

60 TT=TT+K*A<K> .NEXT K 

65 PRINT "THE AVERAGE 1 

70 REM PART B 

75 FOR K=l TO 28 

80 TEN=TEN+A';.K> 

85 PRINT "NO. OF 



1 T r N 



NEi^iT k 

VALUES <=ie ".; TEH 



90 REM PART C 
95 FOR K=l TO 



28 



100 ODD=ODD+A<K 
105 PRINT "NO. 
110 REM PART D 
115 PRINT "NO. 



>TEP 2 
NEXT K 



OF ODD INTEGERS"; ODD 



OF REPEATS"; F 



10 REM CH. ; .■ EX. 18.. PROBLEM 18 

12 CLS. 0=8: RANDOM: R=RNDui80.. 

15 PRINT "I HAVE A NO. BETWEEN 

20 G=G+1: PRINT "GUESS NO. "; G 

25 INPUT X 

30 IF X=R THEN 50 

25 IF X<R THEN 45 



168' 



40 PRINT 
45 PRINT 



"TOO HIGH" 
"TOO LOW" , 



50 PRINT "VOU DID IT 



GOTO 20 
GOTO 20 
IN"; G; "GUESi 



10 REM CH. 7.. EX. 18. PROBLEM 12 

12 REM HEADS=1. TAILS=2 

13 REM FLAG=1 FOR HEADS TOSS 

15 FLAG=0: SEQ=e : MAX=e . RANDOM 

20 INPUT "HOW MANV TOSSES"; N 

25 IF RND<2>=2 THEN 35 

30 FLAG=1: SEQ=1 ; GOTO 48 

35 FLAG=0 

40 FOR K=2 TO N 

45 IF RNDu2.'=2 THEN 60 

50 IF FLAG=1 LET SEQ=SEQ+1 : GOTO 

53 IF FLAG=0 LET SEQ=1 : FLAG=1 

55 GOTO 65 

60 FLAG=0: SEQ=0 
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65 IF SEQ>MflX LET t1ftX=SEQ 


45 IF P07 THEN 60 


70 NEXT K 


50 GOSUB 1200 


75 PRINT "LONGEST RUN OF HEADS"; MFIX 


55 GOTO 105 




60 PRINT "VOUR POINT IS"; P 




65 PRINT "PRESS ENTER TO CONT. ROLLING" 


10 REM CH. 7. EX. 10. PROBLEM 14 


70 INPUT G 


12 FOR N=100 TO 999 


75 GOSUB 1000 


15 D1=INT<N/100> 


80 IF D1+D207 THEN 95 


16 D3=N-10*INT<;N/10> 


85 GOSUB 1300 


17 D2=<N-100H<Dl-D3>/i0 


90 GOTO 105 


20 X=D1C 3+D2C 2+D3C 3 


95 IF D1+D20P THEN 60 


25 IF N=X PRINT N 


100 GOSUB 1200 


30 NEXT N 


105 INPUT "PLAV AGAIN V OR N"; R* 




110 CLS 




115 IF R*="V" THEN 15 


10 REM CH. 7, EX. 10. PROBLEM 16 


120 PRINT; PRINT 


11 PRINT "ANGLE", "SIN<X>". "SERIES 


125 PRINT "VOU WON";W; 


12 FOR K=l TO 7 


128 PRINT "AND LOST";L; "GAMES. " 


15 READ ANGLE 


130 IF W>L THEN 145 


20 DATA 10, 30, 60, 90, 120, 150, ISO 


135 PRINT "NEXT TIME BRING MONEV" 


25 X=. 0174533*ANQLE 


140 END 


30 SERIES=0: SIGN=-1; P=-l 


145 PRINT "I DON'T WANT TO PLAV FOR *" 


35 FOR M=l TO 5 


150 END 


40 P=P+2: FACT=1: SIGN=-SIGN 


1000 REM SUBROUTINE FOR DICE ROLL 


45 FOR L=l TO P 


1010 di=int<:rnd<6>+i> 


30 FACT=FACT*L: NEXT L 


1020 D2=INT<RND<6>+1> 


55 SER I ES=SER I ES+S I GN*XC P/F ACT 


1030 PRINT 


60 NEXT M 


1040 PRINT"ROLL IS A '";D1;"' & •'";D2;"-' 


65 PRINT ANGLE, SIN<X>, SERIES 


1050 PRINT 


70 NEXT K 


1060 RETURN 




1200 REM WIN ROUTINE 




1210 PRINT 


10 REM CH. 7, EX. 10, PROBLEM 18 


1220 PRINT "VOU WIN ! ! ! " 


11 CLS 


1225 PRINT 


12 FOR ANGLE=0 TO 360 STEP 30 


1230 W=W+1 


20 V»=SIN<0. 0174533* ANGLE > 


1240 RETURN 


35 " V IS MAGNIFIED BV 10 & SHIFTED 


1300 REM LOSE ROUTINE 


37 " BV 12; FOR V=l GRAPH SHOWS V=22 


1310 PRINT 


40 PR I NT " - " ; TAB < 10* V+12 > ; ANGLE 


1320 PRINT "I LOVE A GOOD LOSER!!!"" 


80 NEXT ANGLE 


1325 PRINT 




1330 L*=L+1 




1340 RETURN 


10 REM CH. 7, EX. 10, PROBLEM 20 




12 PRINT "A", "SIN<2*A>", 




13 PRINT "2*SIN<A>*C0S<A>" 


10 REM CH. 8, EX. 11, PROBLEM 12 


15 FOR X=0 TO 90 STEP lO 


12 CLS; PRINT "N", "A" 


20 A=0. 0174533*X 


15 READ P, R, T 


25 LEFT=SIN<2*A> 


20 FOR K=l TO 9 


30 RIGHT=2*SIN<A>*C0S<A> 


25 READ N<K> 


35 PRINT X, LEFT, RIGHT 


30 DATA 100, . 05, 10, 1, 2, 4 


40 NEXT X 


35 DATA 8, 16, 32, 64, 128, 365 




40 GOSUB 100 


H< >«<>>< >tt>l< >i< •<<>«< >i: >(<>t< »< >^ >«<>>: ><< >^ ><< 4i >«<>«<>4< >«<>•< if >fc >t: >^ >ti >^ 


45 NEXT K; END 




100 REM COMPOUND INTEREST SUBROUTINE 


CHAPTER 8 


105 A=P*«;i+R/N<K>>C<T*N<K>> 


EXERCISES 11 


110 PRINT N<K>,A 




115 RETURN 


CH. 8, EX. 11, PROBLEM 8 




ADD THE FOLLOWING LINES TO THE PROGRAM 




105 INPUT "NO. OF BLINKING DISPLAVS"; N 


10 REM CH. 8, EX. 11, PROBLEM 14 


125 FOR X=l TO N 


12 PRINT "INPUT X FOR EXPCX)"; 


170 NEXT X: END 


13 PRINT " AND THE NUMBER OF TERMS" 




15 INPUT X, N 




20 GOSUB 100 


10 REM CH. 8, EX. 11, PROBLEM 16 


25 PRINT N; "TERMS, EXP<";X;"> IS"; E 


12 W=0:L=0: CLS; RANDOM 


30 END 


15 PRINT "THIS IS A DICE GAME!!" 


100 -SUBROUTINE TO COMPUTE EXP<X> 


20 GOSUB 1000 


105 E=l 


25 P=D1+D2 


110 FOR L'l TO N 


30 IF P012 THEN 45 


115 GOSUB 200 


35 GOSUB 1300 


120 E=E+XCL/F 


40 GOTO 105 
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125 NEXT L 

130 RETURN 

200 REM SUBROUTINE FOR FRCTORIflL 

205 F=l 

210 FOR K=l TO L 

215 F=F*K; NEXT K 

220 RETURN 

CHAPTER 9 

EXERCISES 12 



10 REM CH. 9. EX. 12. PROBLEM 4 

20 REM X+W MUST BE <=127 

21 •- V+H MUST BE <=47 

30 INPUT "WIDTH & HEIGHT"; W.H 

35 INPUT "TOP LEFT CORNER AT X, V"; fl, B 

38 CLS 



40 V=B 

45 FOR X=fl TO fl+W: 

50 X«fl+W 

55 FOR V=B TO B+H : 

60 V=B+H 

65 FOR X=fl+W TO fl 



SET <X. V>: NEXT X 



SET <X, V> : NEXT V 



STEP 



66 SET<X, Y>; NEXT X 
70 X=fl 

75 FOR V=B+H TO B STEP 

76 SET<X, V> : NEXT V 
80 GOTO 80 



10 REM CH. 9. EX. 12. PROBLEM 6 
12 CLS 

15 X=0; FOR V=0 TO 42 

16 SET<X. V>: NEXT V 

20 X==l: FOR V=0 TO 42 STEP 6 

21 SET<X, V> : NEXT V 

25 V=42: FOR X=»0 TO 127 

26 SETCX. V>; NEXT X 
30 FOR C=0 TO 1100 
35 I=C/2. 54 

40 X=C: V=42-I 

42 IF V>0 SET <X. V> 

45 NEXT C 

50 GOTO 50 



10 REM CH. 9. EX. 12. PROBLEM 8 

11 ON ERROR GOTO 86 

12 INPUT "TOTAL NO. OF STEPS"; N 

13 X=64: V=20; K=0 : DIST=e 

14 CLS; RANDOM 

15 SET ex. V> 
K=K+1: IF K>N THEN 98 
Z=RND<2> 
IF Z=2 THEN 31 

DIST=DIST-: 
DIST=DIST+; 
GOTO 15 
GOTO 15 



GOTO 15 
GOTO 15 



16 

17 

18 

21 X=X-2; 

31 X=X+2: 

41 V=V+2: 

51 X=X-2: 

80 N=K 

85 GOTO 85 

90 PRINT C- 0. "AFTER"; N; "STEPS "; 

93 PRINT "DISTANCE ="; DIST; "FEET" 

95 GOTO 95 



16 PRINT e 259. "18" : PRINT © 387. "12' 

17 PRINT C« 515. "6" 

19 REM LABEL X-AXIS 

20 PRINT e 704. " 2"; 
4 6"; 
8 10" 

V-AXIS 
V=0 TO 30 
NEXT V 



22 PRINT " 

23 PRINT " 

24 REM DRAW 

25 X=0: FOR 

26 SET <X. V> 



27 REM MARKERS ON V-AXIS 

28 X=l: FOR Y=0 TO 36 STEP 3 

29 SET <X. V> : NEXT V 

30 REM DRAW X-AXIS 

32 V=30; FOR X=0 TO 160 

34 SET ex. V> : NEXT X 

35 REM MARKERS ON X-AXIS 

36 V=29: FOR X=0 TO 180 STEP 18 

37 SET <X. V>; NEXT X 
40 FOR X=0 TO 10 

45 V=X: V=30-V 

47 XSCALE=10'»<X 

50 SET <XSCALE. V> ; NEXT X 

55 FOR X=0 TO 10 

60 V=3*X: V=30-V 

63 XSCALE=10*X 

65 SET <XSCALE. V> : NEXT X 

70 GOTO 70 

CHAPTER 10 

EXERCISES 13 



10 REM CH. 10. EX. 13. PROBLEM 6-A 

12 CLEAR 500: Z-Q 

20 INPUT "VOUR TEXT";T* 

30 FOR K=l TO LEN<T*> 

40 IF MID*CT*. K. 1> = "E" THEN Z=Z+1 

50 E=E+1 

60 NEXT K 

70 PRINT "THE LETTER E OCCURS"; Z; 

73 PRINT "TIMES IN VOUR TEXT" 



10 REM CH. 10. EX. 13. PROBLEM 6-B 

12 CLEAR 500: Z=0 

20 INPUT "VOUR 'TEXT"; T* 

30 FOR K=l TO LENCT*) 

40 X*=MID4-<T*. K. 1> 

FOR R=l TO 5 

IF X*=MID*<"AEIOU".R. i> THEN Z=Z+1 
50 NEXT R 
60 NEXT K 

70 PRINT "THE VOWELS OCCUR"; Z; 
73 PRINT "TIMES IN VOUR TEXT" 



42 
44 



10 REM CH. 9. EX. 12. PROBLEM 16 

12 CLS: REM LABEL V-AXIS 

15 PRINT 3. "30" : PRINT C" 131. 



24' 



10 REM CH. 10. EX. 13. PROBLEM 6-C 

12 CLEAR 500: Z=0 

20 INPUT "VOUR TEXT";T« 

30 FOR K=l TO LEN<T*;' 

40 IF MIDSCT*. K. 4:j = "1NG " THEN Z=Z+1 

42 IF MID*<T*. K. 4> = "ING. " THEN Z=Z+1 

60 NEXT K 

65 IF RIGHT*<T4. 3> = "ING" LET Z=Z+1 

70 PRINT "THE ENDING 'ING-" OCCURS"; 

73 PRINT Z; "TIMES IN VOUR TEXT. " 
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10 REM CH. 10, EX. 13, PROBLEM 8 

12 CLEAR 1000 

20 INPUT "VOUR TEXT"jfl» 

30 FOR K=l TO LEN<fl»> 

40 X*=MID*<fi*, K, 1> 

50 IF RSC<X*>>64 AND RSC<X*><91THEN 55 

52 GOTO 60 

55 P*=P*+X* 

56 PRINTP* 
60 NEXT K 

65 REM D* CONTAINS ONLY LETTERS 

70 FOR K=»LEN<P*> TO 1 STEP -1 

75 B*=B*+MID*<P*, K, 1> : NEXT K 

80 IF P*=B* THEN 90 

85 PRINT "NOT AN IMPERFECT PALINDRONE" 

87 END 

90 PRINT "IMPERFECT PALINDROME" 

92 END 



10 REM CH. 10, EX. 13, PROBLEM 10 

20 INPUT "VOUR SENTENCE <N0 PERIODS"; A* 

30 FOR K=l TO LENCA*> 

40 IF MID«;<A$, K, 1> = " " THEN 60 

50 b*=b*+mid*<:a*, K, i> 

55 GOTO 80 

60 IF LEN<MAX*><LEN<:B«> THEN MAX*=B* 

70 B*=" " 

80 NEXT K 

85 IF len<max«^><len<:b*> let MA*=B* 

90 PRINT "THE LONGEST WORD IS: "; MA« 



10 REM CH. 10, EX. 13, PROBLEM 12 
12 FOR K=l TO 100 

15 a*=str*<:k> 

20 FOR L=l TO LEN<A*> 

25 IF "7"=MID*<A*, L, 1> THEN 40 

30 NEXT L 

35 GOTO 60 

40 PRINT K; "BUZZ "; 

45 IF INT<;K/7>*70K THEN 60 

50 PRINT "BUZZ "; 

60 NEXT K 



10 REM CH. 10, EX. 13, PROBLEM 14 

12 PRINT "THE SPECIAL NUMBERS ARE:" 

15 FOR K=10 TO 99 

20 N1=INT<K/10> 

25 N2=K-10*N1 

30 IF KONl*Nl+N2*N2 THEN 45 

35 PRINT K; 

40 FLAG=1 

45 NEXT K 

50 IF FLAG=1 END 

55 PRINT "THERE ARE NO SUCH NUMBERS' 
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Abbreviation, 162 

PRINT, 6 

REM, 29 
ABS function, 116, 117 
Absolute value, 64 
Algorithm, 101 
Alphanumeric character, 162 
AND, 47 
Apostrophe, 29 
Argument, 100, 112 

dummy, 102 
Arithmetic: 

functions, 13 

hierarchy of operations, 14, 49 

integer, 18 

trick, 32 
Arithmetic functions: 

addition, 13 

division, 13 

exponentiation, 13 

multiplication, 13 

subtraction, 13 
Array, 27, 79 

largest element, 80 
Ascending order, 53 
ASC function, 143 
ASCII code, 143, 144 
Assignment, 9 
ATN function, 117 
AUTO, 26 
Averaging, 73 
Axes X and Y, 101 

B 

Back-up tape, 109 

Bar graph, 116, 135, 141 



Binary numbers, 150 
Binomial expansion, 102 
Blanks, 10 
Blinking: 

block, 155 

display, 124, 129 
Branching, 46 
BREAK, 26, 40, 67, 68, 89, 145 



C 



Cassette input-output, 40, 107 
CBDL function, 117 
Celsius degrees, 21, 40, 133 
Chaining, 56 
Character: 

alphanumeric, 162 

blank, 8 

information, 6, 8 

strings, 7,42, 142 
Checkbook balancing, 105 
Checking account, 64, 91 
Christmas Club, 78 
CHR$ function, 143 
CINT function, 117 
CLEAR, 24 
CLEAR key, 4 
CLEAR «, 61, 148 
CL0AD,41 
CLOAD?, 41 

Coding a message, 148 
Comma, 98 

hanging, 98 
Command mode, 23, 25 
Comments, 28 

Compound interest, 14, 32, 51, 129 
Computer-assisted instruction, 125 
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Conditional transfer, 54 

to subroutines, 125 
CONT, 40, 68,89 
Convergence criterion, 130 
COS function, 117 
Counter, 66 

increment, 67 

test, 67 
CSAVE, 40 
CSNG function, 117 
Cursor, 4, 5,26 

D 

DATA, 93 

Data validity check, 37, 59, 60, 64 
Debugging, 37, 85 
Decisions, 46 

three-vv'ay, 53 

two-way, 51 
Declaring variable types, 41 
DEFDBL, 42 
Definition statements, 42 
DEFINT,41,42 
DEFSNG, 42 
DEFSTR, 42 
Degree: 

Celsius, 21, 133 

days, 44 

Fahrenheit, 21, 133 
DELETE, 26 
DELETE characters, 34 
DELETE line, 33 
Dice, 119, 120, 129, 135 
Digital clock, 1 29 
DIM, 79 
Display: 

slowdown, 145 

status message, 145 
Distance formula, 22 
DivisibiHty check, 18 
Division: 

sign, 13 

by zero error, 37, 60 
Dollar bill change, 61 
Double-precision, 16, 17, 42 
Drill and practice, 97 
Dum.my : 

argument, 102 

loop, 145 

record, 109 



E 

EDIT, 34 

Editing, 24, 33 

examples, 36 

procedure, 35 
Edit mode, 34 
Element, 79 
Employee: 

earnings, 1 1 1 

file. 111 
END, 25, 128 
ENTER key, 5, 7 
Equal, 46 
Equal sign, 11 
Erase: 

character, 4 

line, 4 

program, 27 

screen, 4 
ERL function, 60 
ERR function, 164 
ERROR code, 164 
Errors: 

10,37,60 

FC,58 

language, 37 

logical, 37 

messages, 159 

OD, 94, 145 

OV, 17 

SN, 5, 8, 37, 60 

TM, 149 
Etch-a-sketch, 154 
Execution: 

BREAK, 67, 68, 145 

halt, 68 

mode, 24, 25 

sequence, 46 
EXP function, 117, 130 
Exponent, 7 
Exponent sign: 
on printer, 13, 14 
on screen, 13, 14 
EXTRA IGNORED, 165 

F 

Factorial, 78, 120, 130 
Fahrenheit degrees, 21, 40, 133 
False statement, 47 
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FC error, 58 

Fibbonacci sequence, 102 

File: 

employee, 11 1 

inventory, 110 
FIX function, 1 17 
Flag, 74, 109 
Flowchart, 49 

symbols, 50 
Football, 92 

Formatting output, 97, 104 
FOR-NEXT, 70 
FOR-NEXT loop, 70 
FRE function, 149 
Frequency count, 1 19, 135 



Games: 

buzz, 157 

etch-a-sketch, 154 

hi-low,77, 120 

shoot the duck, 153 

video, 153 
GIGO, 59 
GOSUB, 122 
GO TO, 53 
Graph: 

bar, 116, 135, 141 

equation, 1 10 

histogram, 116 

lines, 132, 141 

metric, 140 

parabola, 100 

random, 116, 137, 140 

rectangle, 140 

temperature, 133 
Graphic block, 132 
Graphic display, 115, 133, 136, 139 
Graphics, 131, 137 
Greater than, 46 



Hi-Lo game, 77, 120 
Histogram, 116 
Hypotenuse, 27 

I 

IF-GOTO,63 
IF-THEN, 54, 66 
IF-THEN-ELSE,54,55 
IF-THEN GO TO, 63 

Immediate mode, 24, 25 
Increment counter, 66, 67 
Infinite loop, 68, 104, 145 
Infinite series, 71, 78, 130 
Information: 

character, 6, 8 

numerical, 6 
Initialize counter, 66, 67, 6 
INKEY$ function, 151 
Inner loop, 82 
INP function, 165 
INPUT, 31, 33, 93 

cassette, 107 

#-1,108 
Integer: 

arithmetic, 18 

variable, 16, 17, 41 
Interest, 23, 27, 38 

compound, 14, 32 
INT function, 112 
Inventory file, 110 
Iteration, 78 
Iterative formula, 78 

K 

Keyboard, 3 

response, 31 
Kitty corner, 27 



H 



Halt execution, 68 
Hanging comma, 98 
Hanging semicolon, 82 
Heads and tails, 115 
Hero's formula, 21 
Hierarchy of operations, 14, 49 



Language errors, 37, 38 
Leading plus sign, 104 
Leading zeros, 17 
LEFTS function, 146 
Left to right rule, 14 
LEN function, 146 
Less than, 46 
LET, 10 
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index 



Level I versus Level II, 6, 9, 37 
Library functions, 112, 117 
Line number, 23, 25 

BREAK IN, 39 
LIST, 25, 39 
LLIST, 166 

LOG function, 117,118 
Logical errors, 37, 38 
Logical expressions, 48 
Logical operations, 47 
Logical variables, 48 
Long division, 112 
Loops: 

debugging, 85 

dummy, 145 

FOR-NEXT, 70 

IF-THEN, 66 

infinite, 68, 104, 145 

inner, 82 

nested, 82, 91, 101 

outer, 82 

structure, 66, 67 
LPRINT, 167 



M 

Magic squares, 84, 91 
Mailing list, 110 
Main program, 122 
Manhattan Island, 21 
Matrix, 84, 91 
Mean, 129 

MEM function, 27, 149 
MEMORY SIZE?, 3 
Merge, 91, 158 
Messages, 28,29 

coding, 148 

decoded, 157 

error, 159 
Metric conversion, 16, 140 
MID$ function, 146 
Minus sign, 6 
Mode, 91 

Mortgage payment, 21 , 38 
Multiple statement lines, 56 
Multiple subscripts, 84 
Multiplication : 

sign, 13 

table, 82 



N 



Negative numbers, 6 
Nested loops, 82, 91, 101 
Nested subroutines, 123, 130 
NEW, 27, 76 
NOT, 47 
Numbers: 

negative, 6 

positive, 6 

scientific notation, 7 
Numeric constant, 7 
Numeric keypad, 3 
Numeric limits on magnitude, 17 



O 



OD error, 94, 145 

ON ERROR GO TO, 59, 65, 137 

ON-GOSUB,125 

ON-GOTO,57 

Operations: 

hierarchy, 14, 49 

logical, 47 

relational, 46 
OR, 47 

Outer loop, 82 
OUT function, 167 
Output, 93 

cassette, 108 

formatting, 97 

zones, 98 
Overflow, 13 

error, 17 



Palindrome, 147, 157 
Parabola, 100 
Parentheses, 14 
redundant, 15 
Pascal's triangle, 101 
PEEK function, 167 
Picture tree, 31 
Playing computer, 86, 1 13 
POINT function, 137 
POKE function, 167 
Population, 45 
POS function, 102 
Positive numbers, 6 
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PRINT, 6, 7 

abbreviation, 6 

expanded, 4 
PRINTTAB, 100, 102,117 
PRINTUSING, 100, 103,104 
PRINT®, 102 
PRINT #-1,108 
Program: 

clarity, 28 

debugging, 37, 84 

delete, 27 

editing, 33 

erase, 27 

line number, 23 

listing, 25 

mode, 24 

readability, 28 

saving, 40 

tracing, 86 

writing, 23 
Programming: 

mode, 24, 25 

trick, 132 
Pythagoreah theorem, 27 

Q 

Quadratic equation, 64 
Quotation marks, 7 
Quotes, 8,33 
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RANDOM, 114 

Random graphic display, 115 

Random integer, 114 

Random number, 1 14 

Random number generator, 1 19 

Random walk, 137 

READ, 93 

READY, 3, 24, 102 

REDO, 33 

Relational operations, 46 

REMark, 28,29 

Reserved words, 10,11, 82, 161 

RESET function, 137 

RESTORE, 95 

RESUME, 59 

RETURN, 122 

Right triangle, 27 



RIGHTS function, 146 
RND function, 114 
Roulette, 120 
Rounding, 113 

to nearest penny, 19, 103 
Roundoff, 17 
Ruleof72,68,77, 118 
RUN, 24, 54 



Sales report, 98 
Saving programs, 40 
Scientific notation, 7 
Semicolon, 25 

hanging, 82 
Series: 

exponential, 130 

Fibbonacci, 102 

infinite, 71, 78, 130 

sine, 120 
SET function, 131 
SGN function, 117 
SHIFT key, 4 
SHIFT®, 67, 145 
Shoot the duck, 153 
Significant figures, 16, 17, 105 
Simulate: 

birthdates, 120 

dice, 119,120, 129, 135 

heads and tails, 115 

roulette, 120 
SIN function, 117 
Single-precision, 16, 17,42 

versus double-precision, 18 
Slope formula, 22 
Slowdown display, 145 
Sorting, 86 
Space bar, 36 
SQR function, 117 
Standard deviation, 129 
State capitals, 95 
Statement chaining, 56 
Status message, 145 
STEP, 70 
STOP, 39, 89 
String, 7, 142 

concatenation, 14, 142 

entry routine, 152 

functions, 143, 148 

variables, 8, 17 
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STRINGS function, 148 
STR$ function, 149 
Subroutines, 122 

conditional transfer, 125 

nested, 123, 130 
Subscript, 79 
Subscripted variables, 79 

element, 79 

multiple, 84 

rules, 80 

single, 79 
Syntax error, 5,8,37,60 
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TAB function, 100, 102, 

TAN function, 117 

Temperature conversion, 21, 40, 133 

Three-way decision, 52 

TM error, 149 

Trace, 86, 88 

Trailing plus sign, 104 

Trailing zeros, 6, 104 

Transfer: 

conditional, 54 

statements, 46, 53 

unconditional, 53 
TROFF,86,88 
TRON,86,88 
True statement, 47 
Two-way decision, 51 
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VAL function, 149 
Variable, 8 

declare, 17, 41 

display, 58 

double -precision, 16, 17,42 

integer, 16, 17,42 

interchange values, 1 1 

MEM, 27 

numerical, 9 

single-precision, 16, 17,42 

string, 8, 17,42 

subscripted, 79, 84 

types, 16,41 
Variable displays, 58 
VARPTR function, 170 
Video game, 153 



W 
Wise old man, 75 



Year-to-date earnings, 108 



U 

Unconditional transfer, 53 
Underlining a title, 150 
Unit pricing, 95 
USR function, 170 



Zero: 
division by, 37 
leading, 17 
subscript, 80 
trailing, 6, 104 

Zone, 98 
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programming 

This is an easy-to-follow book suitable for a wide variety of readers 
who are new to computers and connputep progrannnntng. It is ideal 
for the beginner who wants to learn about computers without 
wishing to become an expert. Dr. Zabinski's INTRODUCTION TO 
TRS-SD LEVEL II BASIC AND COMPUTER PROGRAMMING shows 
how to use the TRS-BD computer for a wide range of exciting 
applications such as checkbook balancing, computer graphics, 
multiplication tables, magic squares, and video games. 

BASIC has a conversational, interactive nature and a simple struc- 
ture; it is an attractive teaching tool with which computer program- 
ming concepts can be presented to beginners. With a small set of 
instructions, the beginner can very quickly begin to write elementary 
computer pragrams^a stimulating and enjoyable experience. Many 
practical examples are included to illustrate the use of BASIC and to 
demonstrate how a computer can be programmed. 

The opening chapter describes major characteristics of the Radio 
Shack TRS-BD. its keyboard, and how to communicate with the 
computer. Subsequent chapters discuss, in direct and easy-to- 
follow language, techniques for specifying information, computer 
programs, decisions, looping, input and output, library functions, 
subroutines, graphics, and strings. 

Numerous illustrative examples and an abundance of chapter exer^ 
cises [over 2DO!). including many of their solutions, sre provided. 
They help the reader assess progress, reinforce comiprehension. 
and provide valuable practical experience. 
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